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Vorwort 


Dieses Buch bietet eine systematische Einführung 
in die Programmiersprache BASIC für den Commodore 64. 
Außer vielen kleineren Programmen zur Illustrierung der 
einzelnen BASIC-Anweisungen findet der Benutzer eine 
umfangreiche Programmsammlung zu den verschiedensten 
Themenbereichen. 


Die besonderen Fähigkeiten des Commodore 64 werden 
mit vielen Beispielprogrammen erläutert. 


Für denjenigen, der die zum Teil recht umfang- 
reichen Programme nicht alle selbst eingeben möchte, 
stehen die Programme auch auf Kassette oder Diskette 
zur Verfügung. 


wir hoffen, daß Ihnen dieses Buch möglichst viele 
Fragen, die sich bei der Benutzung Ihres Computers 
ergeben werden, beantworten kann. 


Für alle Hinweise, Tips, kritische (aber natürlich 


auch zustimmende) Reaktionen, die einer Verbesserung 
dieses Buches dienen können, sind wir dankbar! 


Die Autoren 
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Einleitung 


Das vorliegende Buch beginnt mit den allgemeinen 
Grundlagen der Programmierung und endet mit einer um- 
fanareichen Sammlung von Programmen aus den unter- 
schiedlichsten Bereichen. Dazwischen wird der Leser und 
Computerbenutzer Schritt für Schritt systematisch mit 
den Möglichkeiten der Programmiersprache BASIC sowie 
den speziellen Möglichkeiten des Commodore 64 vertraut 
gemacht. 


Im ersten Kapitel werden grundlegende Begriffe wie 
Algorithmus, Flußdiacramm und Programm erläutert. Es 
wird dargestellt, daß man mit nur fünf verschiedenen 
Elementen im Grunde sämtliche Algorithmen formulieren 
kann. Darauf basiert dann auch die Einführuna der 
grundleaenden BASIC-Anweisungen im zweiten Kapitel, ın 
dem nezeigt wird, wie Ein- und Ausgabe, arithmetische 
Operationen sowie Zuweisungen und Verzweigungen in 
BASIC realisiert werden. Außerdem erfährt man, wie 
Programme auf der Kassette oder Diskette gespeichert 
werden können. 


Im nächsten - 3. - Kapitel werden weitere RASIC- 
Anweisungen in einer solchen Reihenfolge eingeführt, 
aaß eine neue Anweisung jeweils notwendig erscheint, um 
ein bestimmtes Problem zu lösen. In diesem Kapitel 
werden auch die eingebauten BASIC-Funktionen und die 
logischen Operationen besprochen. Im darauf folgenden 
vierten Kapitel wird noch einmal auf das Speichern und 
Laden von Programmen eingegangen. Zusätzlich wird an 
Beispielen aufgezeigt, wie Daten auf externe Speicher 
gebracht und auf einfache Weise kleine Dateien angelegt 
werden können. 


Im fünften Kapitel gewinnt der Benutzer des Commo- 
dore 64 einen Einblick in die Speicherorganisation 
seines Computers. Unter anderem finden sich hier nähere 
Informationen zum Rildschirm- und Farbspeicher. Dazu 
werden die Anweisungen PEEK und POKE eingeführt, die in 
gen noch Folgenden Kapiteln häufig gebraucht werden. 


Der Grafik-Programmierung ist ein eigenes Kapitel 
qewicmet, in dem die Erstellung von Sprite-Figuren und 
Darstellungen in hochauflösender Grafik (1m Commodore- 
Handbuch überhaupt nicht besprochen) erklärt wird. 
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Im siebten Kapitel erhalten Sie einen Eindruck von 
den musikalischen bzw. akustischen Eigenschaften Ihres 


Computers. Da der Commodore 64 über einen speziellen 
Baustein für die Musikprogrammierung verfügt, lassen 
sich recht bemerkenswerte Ergebnisse erzielen - mit bis 


zu drei Stimmen übriaens,. 


In den folgenden 'Tips und Tricks' erhält man z.B 
ausführliche Hinweise über die Cursorsteuerung und die 
Benutzung der Funktionstasten. Außerdem wird gezeigt, 
wie man sich einen eigenen Zeichensatz erzeugen kann. 


Im neunten Kapitel ergänzen einige theoretische 
Grundlagen das Wissen des inzwischen fortgeschrittenen 
Programmierers. Begriffe wie Bit und Byte, Binär- und 
Hexadezimal-Sytem sind ihm anschließend geläufig. 


Die sich anschließende Programmsammlung enthält 
Anwendungs-Beispiele aus den verschiedensten Bereichen: 


neben Spielen, Simulationen, Zinseszins-Berechnungen, 
Zahlenumrechnungen und weiteren mathematischen Berech- 
nungen findet sich hier ein Hilfsprogramm, das die 


Eingabe von Noten in Musikprogramme erheblich erleich- 
tert. Außerdem werden mehrere Sortierverfahren (jeweils 
für Zahlen und für Strings) vorgestellt und miteinander 
verglichen. 


Im Anhang werden nützliche tabellarische Über- 
sichten über die einzelnen Speicherbereiche, Farbcodes, 
Commodorezeichen, Frequenztabellen usw. geboten. Außer- 
dem finden Sie hier eine kommentierte Liste der Fehler- 
meldungen des Commodore 64. 


Im Literaturverzeichnis werden Hinweise auf wei- 
tere Bücher zum Commodore 64 bzw. zur Programmierung in 
BASIC gegeben. 


Ein Stichwortverzeichnis erleichert Ihnen das 
Auffinden gesuchter Begriffe. 
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Allgemeine 
Grundlagen 


Allgemeirıe Grurdlager: der Frogrammierurg 


Problembeschreibung 


Von der 
Pr 9-9. r & mm 


z um 


Ein Computer unterscheidet sich von einem ein- 
fachen Rechner win erster Linie dadurch, daß er frei 
programmierbar ist. Ein Taschenrechner z.B. hat die 
Schrittfolge zur Berechnung einer bestimmten Rechen- 
operation 'fest eingebaut’. 


Da den meisten Menschen der Umgang mit Taschen- 
rechnern bereits sehr vertraut ist, denkt kaum jemand 
daran, daß sich bei einem einfachen Tastendruck recht 
komplexe Vorgänge abspielen. So erfordert z.B. die 
Berechnung einer Quadratwurzel eine Vielzahl von ele- 
mentaren Anweisungen, die durch einen einzigen Tasten- 
druck abgerufen werden. 


Ein Programm ist nun nichts anderes als eine sol- 
che Folge von Anweisungen, die einem Rechner oder Com- 
puter mitteilen, was er tun soll. 


während aber ein einfacher Rechner nur eine ganz 
bestimmte Anzahl von Anweisungen 'versteht', (nämlich 
die auf den Tasten angegebenen Funktionen) ist ein 
Computer grundsätzlich nicht auf eine bestimmte Zahl 
von Anweisungen festgelegt, sondern kann durch eine 
entsprechende Programmierung prinzipiell alle möglichen 
Anweisungen zur Verarbeitung von Daten (also Zahlen und 
Texten) ausführen, die eindeutig formuliert sind. 


Grundsätzlich ist ein Computer auch keineswegs nur 
eine "'Rechenmaschine', sondern vielmehr eine 'Daten- 
verarbeitungsmaschine', denn ein Computer kann nicht 
nur mit Zahlen umgehen, sondern ganz allgemein mit 
irgendwelchen Zeichen oder Symbolen. Das können Texte 
sein, Adresslisten oder beliebige andere Ansammlungen 
von Daten. Die 'Datenverarbeitung' kann im Berechnen, 
Zählen, Sortieren, Vergleichen usw. bestehen. 


Da man einem Computer aber nicht einfach in der 
Umgangssprache mitteilen kann, welches Problem er lösen 
soll (dies ist - kurz gesagt - darin begründet, daß die 
Umgangssprache in vielen Fällen nicht eindeutig ist), 


1) 


muß man sich spezieller 'Programmiersprachen' bedienen, 
die auf einem begrenzten Wortschatz mit einer genau 


festgelegten Syntax (Satzaufbau) basieren, die der 
Computer 'verstehen' kann. (Verstehen heißt in diesem 
Zusammenhang einfach, daß der Computer imstande ist, 


eine bestimmte Anweisung in einer Programmiersprache 
auf eine ganz bestimmte Weise auszuführen.) 


Die Programmiersprache, die Sie im vorliegenden 
Buch kennenlernen sollen, heißt BASIC. Das ist eine 
Abkürzung für "Beginner's All Purpose Symbolic Instruc- 
tion Code", BASIC wurde aus einer der ältesten 
Programmiersprachen - nämlich FORTRAN - entwickelt und 
sollte insbesondere zu Lernzwecken dienen. Die Sprache 
gewann aber rasch eine weitaus größere Verbreitung als 
vorgesehen und wurde fortwährend verändert und er- 
weitert. Deshalb existieren eine ganze Reihe von BASIC- 


'Dialekten', die sich in unterschiedlichem Maße von- 
einander unterscheiden. D.h. daß die BASIC-Version, die 
auf Ihrem Computer läuft, nicht unbedingt ohne Ander- 


ungen auf einem anderen Computer-Typ laufen muß und 
umgekehrt. 


Da ein Computer also nur 'seine' Programmier- 
sprache versteht, muß man sich vor dem Schreiben eines 
Programmes genau überlegen, wie das spezielle Problem 


in dieser Sprache formuliert werden muß. Unabhängig von 
einer Programmiersprache ist es aber generell zuvor 
notwendig, das Problem in Einzelschritte zu zerlegen. 


Man kann also einem Computer nicht etwa einfach 
befehlen: '"Zähle die Zahlen von * bis 100 zusammen!", 
sondern man müßte ihm - in der richtigen Reihenfolge - 
die dazu notwendigen einzelnen Schritte angeben. 


Vorausgesetzt, daß unser Computer mit den folgen- 
den Anweisungen etwas anfangen kann, könnten diese 
Anweisungen z.B. wie folgt aussehen: 


1. Setze die Summe auf O. 

2. Setze einen Zähler auf ©. 

3. Erhöhe den Zähler um 1. 

4. Addiere den Wert des Zählers zur Summe. 

5. Ist der Wert des Zählers 2 100, so fahre fort 
mit Schritt 3, sonst mit Schritt ©. 

6. Gib den Wert der Summe aus. 
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Um eine Aufgabe derart zu zergliedern und trotzdem 
noch übersichtlich darzustellen, eignet sich am besten 
eine grafische Darstellung, die den Ablauf der einzel- 
nen Schritte veranschaulicht. Eine solche Darstellung 
nennt man dementsprechend Ablauf- oder Flußdiagramm. In 
unserem Beispiel könnte das Flussdiagramm so aussehen: 


Summe 
Zahler 


erhöhe den 
Zähler um 


addiere den 
Wert des 

Zahlers zur 
Summe 
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Damit haben wir auch gleich einen wichtigen Be- 
griff anhand eines Beispiels erklärt, nämlich den 
Begriff "Algorithmus': 


Ein Flußdiagramm ist nämlich nichts anderes als 


eine grafische Darstellung eines Algorithmus, also 
einer Folge von Anweisungen, die (wenn sie entsprechend 
detailliert formuliert sind) es ermöglichen, ein be- 


stimmtes Problem zu lösen. 


Die Darstellung der einzelnen Schritte eines Algo- 
rithmus hängt natürlich ganz davon ab, für wen die 
Anweisungen bestimmt sind. Will man die Lösung einer 
Aufgabe einem Computer Übertragen, so kann man dem 
Computer nicht direkt ein Flußdiagramm eingeben, son- 
dern man muß vielmehr den Algorithmus in eine andere 
Form bringen, indem man ihn als Programm in einer 


Programmiersprache formuliert, die der Computer 'ver- 
stehen' kann. Ein Programm ist also - ebenso wie ein 
Flußdiagramm - eine bestimmte Darstellung eines 
Algorithmus. 


Fassen wir noch einmal zusammen: 


Ein Algorithmus ist eine Folge von Anweisungen, 
die in einer bestimmten Reihenfolge abgearbeitet werden 
müssen, um zu einem vorgegebenen Ziel zu gelangen. 


Die Darstellung eines Algorithmus kann auf ver- 
schiedene Weise erfolgen, z.B. grafisch in Form eines 
Flußdiagramms. | 

Für den Computer muß ein Algorithmus jedoch mit 
den Mitteln einer Programmiersprache formuliert werden, 


die der Computer 'versteht', d.h. deren Anweisungen er 
ausführen kann. 


Zur Erstellung eines Programms gehören also fol- 
gende Schritte: 


2a Analyse des Problems (wie läßt sich das Problem 
 zergliedern?). 


2 Erstellung eines Programmablaufplans (Flußdiagramm). 


3% 'Übersetzung' in die Programmiersprache. 
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Die Hauptaufgaben einer Programmiersprache lassen 
sich unter den Begriffen 


- Eingabe, 

- Ausgabe, 

- Zuordnung, 

- Arithmetik ( Rechenoperationen) und 
- Verzweigung 


zusammenfassen. 


Da jede Programmiersprache über entsprechende 
Sprachmittel verfügt, könnte man grundsätzlich jedes 
Problem, für dessen Lösung sich ein Algorithmus angeben 
läßt, in eine beliebige Programmiersprache übertragen. 


Praktisch. sieht .es ‚jedoch. so aus, daß sich bestimmte 
Probleme in einer bestimmten Sprache besser darstellen 
lassen als win einer anderen. Dies erklärt auch die 


Vielzahl der existierenden Programmiersprachen. 


Im folgenden sollen die wichtigsten grafischen 
Elemente zur Darstellung von Flußdiagrammen vorgestellt 
werden. 


Allgemein besteht ein Flußdiagramm aus einer An- 
zahl von grafischen Symbolen (z.B. Rechtecken), in die 
in freier Formulierung die einzelnen Anweisungen eines 
Algorithmus eingetragen werden. Der Programmablauf wird 
durch entsprechende Verbindungslinien gekennzeichnet, 
wobei der Hauptfluß des Programms von oben nach unten 
erfolgt. Abweichende Richtungsverläufe werden durch 
Pfeile markiert. 
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Ein- und Ausgabe 

Als Symbol für eine Ein- oder Ausgabe verwendet 
man ein Parallelogramm, das die notwendigen Angaben 
über die Ein- bzw. Ausgabewerte enthält: 


Beispiel: 


Eingabe 
Netto, 
Steversatz2 


Zuordnung und allgemeine Operationen (Arithmetik) 


Das allgemeine Symbol für beliebige Operationen 
ist ein Rechteck: 


Beispiel: 


Setze 


Prozent = 1% 


Verzweigung 

Verzweigungen ermöglichen es, je nach Ausgang 
einer Entscheidung, den Programmlauf an verschiedenen 
Stellen fortzusetzen: 


Beispiel: 


nein 
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Programmanfang- und Ende 


Programmanfang- und Ende werden durch das folgende 
Symbol gekennzeichnet. Eine solche Kennzeichnung mag 
auf den ersten Blick überflüssig erscheinen, ist jedoch 
zumindest bei umfangreicheren Flußdiagrammen notwendig. 


Beispiel: 


Anschlussstellen 


Nur kürzere Flußdiagramme lassen sich auf einer 
Seite unterbringen. Die '"Fortsetzungen' eines Programms 
werden durch Kreis-Symbole (am jeweiligen Programmende- 
bzw. Fortsetzungsstück) dargestellt, die eine beliebige 
Kennzeichnung enthalten (z.B. Zahlen). 


Beispiel: 


Bei der Entwicklung von Flußdiagrammen empfiehlt 
es sich, so vorzugehen, daß man das zu lösende Problem 
schrittweise verfeinert. D.h., man beginnt mit einer 
groben Skizze des Programmablaufs und entwickelt nach 
und nach die einzelnen Abschnitte im Detail. Dieses - 
unter dem Namen "Strukturierte Programmierung' bekannte 
' Verfahren ist in BASIC leider nur eingeschränkt 
möglich. (Moderne Sprachen wie Pascal eignen sich sehr 
viel besser für eine solche Programmentwicklung.) 
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‘BASIC 


Grumdlegerde BASIC-Arweisurger 


Generell findet jede Form der Datenverarbeitung in 
drei Schritten statt: die Daten, die verarbeitet werden 
sollen, müssen eingegeben werden; anschließend erfolgt 
die eigentliche Verarbeitung der Daten und schließlich 
die Ausgabe der Ergebnisse. Diese drei Schritte lassen 
sich also kurz durch die Begriffe: Eingabe, Ver- 
arbeitung, Ausgabe umreißen. 


abe und arıi:thmet isch®& 
ationen 

Der wichtigste Verarbeitungsschritt ist in ge- 
wisser Hinsicht der zuletzt genannte, denn ohne eine 
Ausgabe von Ergebnissen ist die gesamte Datenver- 
arbeitung vergebens. 


Sehen wir uns also zunächst an, wie wir den Com- 
puter dazu bringen, daß er z.B. Texte oder Zahlen bzw. 
die Ergebnisse von Berechnungen auf dem 
PRINT Bildschirm anzeigt. Dazu dient der PRINT- 
Befehl, der - ganz allgemein gesagt - 

eine Ausgabe auf dem Bildschirm bewirkt. 


Vorweg noch ein Hinweis: viele BASIC-Anweisungen 
können nicht nur innerhalb eines Programmes stehen, 
sondern auch direkt benutzt werden. Was das genau 


bedeutet, probieren wir am besten gleich einmal mit dem 
PRINT-Befehl aus. Schreiben Sie z.B.: 


PRINT "HALLO" 


und drücken anschließend die RETURN-Taste, so erscheint 
das Wort HALLO (oder jeder andere von Ihnen gewählte 
kurze Text) auf dem Bildschirm. Der dem PRINT-Befehl 
folgende, von Anführungszeichen eingeschlossene Text 
wird also genauso wieder ausgegeben, wie er zwischen 
den Anführungszeichen steht. Dieser Text darf, bis auf 
Anführungszeichen, sämtliche möglichen Zeichen (auch 
Grafiksymbole der Tastatur!) enthalten. Die Anführungs- 
zeichen selbst dienen nur als Trennzeichen. 


Die PRINT-Anweisung kann aber nicht nur Texte oder 
beliebige Zeichenketten unverändert ausgeben, sondern 
es lassen sich damit auch Rechenoperationen ausführen. 
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Geben Sie z.B. folgende PRINT-Anweisung ein: 
PRINT 3+5 


Nachdem Sie die Eingabe mit der RETURN-Taste ab- 
geschlossen haben, sehen Sie sofort das Ergebnis in der 
, nächsten Zeile. 


Im Unterschied zu dieser direkten Eingabe werden 
die Anweisungen eines Programms erst dann ausgeführt, 
wenn das ganze Programm vollständig eingeben ist und 
gestartet wird. Woran erkennt der Computer, ob es sich 
um eine einzelne Anweisung handelt, die wir eingeben 
wollen, oder ob eine Anweisungsfolge, also ein Pro- 
gramm, eingegeben werden soll? Die Antwort läßt sich 
sehr schnell geben: 


Eine Anweisung wird in BASIC dann als Bestandteil 
eines Programms angesehen, wenn sie mit einer Zeilen- 
nummer beginnt. 


Geben Sie also einmal das folgende Programm ein: 


10 PRINT "3+5=" 
20 PRINT 3+5 


Anders als bei der direkten Eingabe dieser An- 
weisungen tut sich auf dem Bildschirm zunächst nichts. 
Da der Computer ja nicht 'weiß', ob noch weitere An- 
weisungen für dieses Programm folgen, kann er natürlich 

nicht einfach irgendwann mit der Programmaus- 

RUN führung beginnen. Ein Programm muß also aus- 
drücklich gestartet werden. Dies geschieht mit 

dem Systembefehl RUN, der - wie jede Eingabe von der 
Tastatur (eine Ausnahme wird später besprochen) - mit 
RETURN abgeschlossen wird. (Im folgenden verzichten wir 
deshalb meistens auf den Hinweis, daß eine Tastatur- 
Eingabe mit der RETURN-Taste abgeschlossen werden muß.) 


Nachdem Sie also das Programm mit RUN gestartet 
haben, erhalten Sie als Ausgabe zwei Zeilen: in der 
ersten steht die Zeichenfolge 3+5 (aus der PRINT- 
Anweisung in Programmzeile 10), darunter das Ergebnis 
der Addition von 3 und 5 (aus der PRINT-Anweisung in 
Programmzeile 20). Der 'Text' (bzw. die Zeichenfolge) 
des ersten PRINT-Befehls ist also genauso wiedergegeben 
worden, wie er zwischen den Anführungszeichen stand. 
Beim zweiten PRINT-Befehl - ohne Anführungszeichen - 
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wurde zunächst die Berechnung von 3+5 durchgeführt, und 
dann das Ergebnis (8) auf dem Bildschirm ausgegeben. 


Vielleicht möchten Sie aber Text und Ergebnis 
nebeneinander statt untereinander auf dem Bildschirm 
sehen? Dann setzen Sie in Zeile 10 zusätzlich ein 
Semikolon an das Ende der Zeile. Dadurch schließt sich 
die Ausgabe des folgenden PRINT-Befehls unmittelbar an 
die vorhergehende Ausgabe an. 


wenn Sie statt eines Semikolons zum Abschluss der 
Zeile ein Komma verwenden, erfolgt die nächste PRINT- 
Ausgabe zwar auch in derselben Zeile, jedoch in einem 
bestimmten Abstand. Die Bildschirmzeile wird in dem 
Fall in vier Abschnitte eingeteilt, und die Ausgabe des 
folgenden PRINT-Befehls beginnt an der ersten Position 
des jeweils nächsten Viertels; also entweder in Spalte 
1, 11, 21 oder 31. 


Die PRINT-Anweisung hat also feste Tabulator- 
Positionen eingebaut', die es auf einfache Weise er- 
möglichen, Ausgaben in Tabellenform zu erstellen. 


Allerdings ist man bei der Formatierung nicht auf 
diese Möglichkeiten beschränkt, sondern kann mit einer 
'richtigen' Tabulatorfunktion die Ausgabe in einer 

beliebigen Spalte auf dem Bildschirm beginnen 

TAE ]assen. Dazu gibt man hinter dem Schlüsselwort 

TAB in einer PRINT-Anweisung in Klammern an, 

wieviele Spalten vor der Ausgabe übersprungen werden 
sollen. Durch die Anweisung 


PRINT TAB(13); "TEST" 
beginnt z.B. die Ausgabe des Wortes TEST in Spalte 14. 
während in der Funktion TAB absolute Bildschirm- 
Positionen angegeben werden, kann man mit der 
SFC Funktion SPC eine bestimmte Anzahl von Leer- 
zeichen zwischen beliebige Ausgaben setzen. 
Geben Sie z.B. ein: 


PRINT "ERSTER" ;SPC(5) ; "VERSUCH" 


so erscheint das Wort ERSTER zu Beginn der Zeile, 
darauf folgen 5 Leerzeichen sowie das Wort VERSUCH, 
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wie Sie sehen, können in einer PRINT-Anweisung 
auch mehrere Ausdrücke stehen, die auszugeben sind. In 
diesen Fällen werden die einzelnen Ausdrücke durch 
Komma oder Semikolon voneinander getrennt. 


Im folgenden Programm sind die Möglichkeiten der 

PRINT-Anweisung noch einmal zusammengestellt. Bevor Sie 

jedoch das Programm eingeben, müssen Sie das 

NETT letzte Programm erst durch die Anweisung NEW 

löschen. Diese Anweisung sollten Sie aber nur 

dann benutzen, wenn das im Computer stehende Programm 
wirklich nicht mehr benötigt wird! 


16 PRINT "DIE PRINT-ANWEISUNG" 
20 PRINT 

30 PRINT "2+3 ="55 
48 PRINT "2+3 ="52 
5® FRINT 1,2,7,4 
66 PRINT "A"3"B"3"C";"D" 

78 PRINT TAB (5) 3 "TABULATOR" 3 TAB (15) 5 "TABULATOR" 
86 PRINT TAB(5) 5 "TABULATOR"3SPC (15) 5" TABULATOR" 


Nachdem Sie dieses Programm vollständig eingegeben 
und mit RUN gestartet haben, erhalten Sie folgende 
Ausgabe auf dem Bildschirm: 


DIE PRINT-ANWEISUNG 


2+3=5 
2+3=5 
1 2 3 & 
ABCD 
TABULATOR TABULATOR 
TABULATOR TABULATOR 
READY. 


Zeile 10 bewirkt die unveränderte Ausgabe des in 
Anführungszeichen stehenden Textes. 


Zeile 20 führt einen Zeilenvorschub aus, erzeugt 
also eine Leerzeile. 
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Zeile 30 gibt die in Anführungszeichen einge- 
schlossenen Zeichen sowie den Wert des darauf folgenden 
Ausdrucks aus, der in diesem Fall nur aus einer einzi- 
gen Zahl besteht. 


Zeile 40 unterscheidet sich von der vorhergehenden 
Zeile dadurch, daß der - ohne Anführungszeichen 
angegebene! - arithmetische Ausdruck zunächst berechnet 
wird und dieser Wert dann ausgegeben wird. 


Zeile 50 gibt vier Zahlen an den voreingestellten 
vier Tabulator-Positionen aus (Trennzeichen: Komma). 


Zeile 60 bewirkt die Ausgabe von vier Buchstaben 
ohne Zwischenräume direkt nacheinander (Trennzeichen: 
Semikolon). 


Zeile 7O schreibt das Wort 'Tabulator' zweimal in 
eine Bildschirmzeile: das erste Mal beginnt die Ausgabe 
in der: 9,5 das zweite Mal in der 15. Spalte, wobei die 
Spaltennumerierung mit Null beginnt! 


Zeile 80 unterscheidet sich von Zeile 70 dadurch, 
daß beim zweiten Mal die SPC-Funktion verwendet wird, 
sodaß das zweite Wort durch 15 Leerzeichen vom ersten 
wort getrennt ausgegeben wird. 


Übrigens: wenn Sie Ihr Programm wieder auf dem 
Bildschirm sehen wollen, geben Sie einfach den Befehl 
LIST ein, der bewirkt, daß alle im Computer stehenden 
Programmzeilen - nach den Zeilennummern sortiert - auf 

dem Bildschirm erscheinen. Möchten Sie 

LIST nur eine Zeile sehen, so geben Sie nach 

LIST die gewünschte Zeilennummer an, 

z.B.: LIST 70. Entsprechend ist es auch möglich, einen 

bestimmten Zeilenbereich auszugeben, zZ.B. mit LIST 30- 
>0. 

Eingabe und Zuweisung 


Bisher standen alle Daten, die der Computer für 
eine bestimmte Ausgabe benötigte, fest im Programm: in 
Form von Zeichenketten (Texten) oder in Form von Zahlen 
oder mathematischen Ausdrücken, die vor der Ausgabe 
berechnet wurden. Für eine neue Berechnung mit anderen 
Daten mußten die Daten im Programm geändert werden. 
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Diese Form der 'Eingabe' von Daten ist jedoch nur 
dann sinnvoll, wenn die betreffenden Daten gar nicht 
oder nur sehr selten geändert werden müssen. Eine 
wesentlich flexiblere Möglichkeit ist durch die Eingabe 
während des Programmablaufs - gewissermaßen im Dialog 
mit dem Computer - gegeben. 


In BASIC dient die INPUT-Anweisung dazu, während 
des Programmablaufs Informationen an den Computer zu 
geben, Es versteht sich, daß die einzugebenden Werte 

nicht mehr wie bisher als 'konstante' 

INPUT Werte fest im Programm stehen können, 

denn das Programm selbst kann durch eine 

Eingabe während des Programmlaufs nicht verändert wer- 

den. In einem solchen Fall stehen im Programm statt der 

konstanten Werte 'Platzhalter' oder 'Variablen' für die 

einzugebenden Daten, die erst durch die Eingabe einen 
bestimmten Wert zugewiesen bekommen. 


Der Name einer solchen Variablen beginnt grund- 
sätzlich mit einem Buchstaben. Als zweites Zeichen kann 
ein Buchstabe oder eine Ziffer folgen. Für die Lesbar- 
keit von Programmen sind zwar einerseits aussagefähige 
- und das heißt im allgemeinen: längere - Variablen- 
bezeichnungen vorzuziehen, anderseits sind im BASIC des 
Commodore 64 nur die beiden ersten Zeichen eines Namens 
signifikant, d.h. der Computer ignoriert die übrigen 
Zeichen einfach, sodaß also z.B. MANN und MAUS als 
identische Variablen angesehen würden. 


Angenommen, wir haben eine Reihe von Werten vor- 
liegen, die Nettobeträge darstellen, und wollen nun die 
jeweilige Mehrwertsteuer und die Bruttobeträge als 
Summe aus Nettobetrag und Mehrwertsteuer berechnen, so 
könnte ein Programm dazu so aussehen: 


18 PRINT "MEHRWERTSTEUER-BERECHNUNG" 
20 PRINT 

38 INPUT"NETTO =";NET 

48 PRINT "MWST =";NET#0.14 

58 PRINT "BRUTTO =";5NET+NET#0.14 
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Neu ist an diesem Programm lediglich die INPUT- 
Anweisung in der Zeile 30. Dabei wurde gleich von der 
Möglichkeit Gebrauch gemacht, mit der INPUT-Anweisung 
zusätzlich einen erklärenden Text auszugeben, der (wie 
schon von der PRINT-Anweisung her gewohnt) ebenfalls 
in Anführungszeichen steht. Beachten Sie, daß zwischen 
diesem Text und der folgenden Variablen ein Semikolon 
stehen muß! Benutzt man die INPUT-Anweisung ohne Text, 
so entfällt das Semikolon. 


Vielleicht hat es Sie schon gestört, daß in Zeile 
50 noch einmal die gleiche Berechnung wie in Zeile 40 
durchgeführt wird. (Natürlich hätte man den Brutto-Wert 
auch einfach durch Multiplikation des Netto-Wertes mit 
1.14 erhalten können.) Wie könnte man eine solche 
doppelte Arbeit vermeiden? Nun, man müßte nach der 
ersten Berechnung den ermittelten Wert als Zwischen- 
ergebnis speichern, und ihn nachher wieder aus diesem 
Speicher abrufen. Woher nehmen wir den Speicher dafür? 
Dazu verwenden wir einfach wieder eine Variable, der 
wir den entsprechenden Wert zuweisen, z.B. so: 


LET MWST = NET * 0.14 


Damit haben wir eine neue Anweisung - LET - 
eingeführt, die folgendes bewirkt: der rechts vom 
Gleichheitszeichen stehende Ausdruck wird berechnet 

(falls erforderlich), und das Ergebnis wird 


LET der links vom Gleichheitszeichen stehenden 

Variablen zugewiesen. In den meisten BASIC- 

Versionen kann man allerdings das Schlüsselwort LET 
weglassen: dies gilt auch für das Commodore-BASIC. 


wäre der Wert der Variablen NET z.B. gleich 100, 
so hätte die Variable MWST nach der Ausführung der LET- 
Anweisung den Wert 100%0.14, also 14. 


Die folgende Programmversion macht von dieser 
Möglichkeit des Zwischenspeicherns Gebrauch: 


10 PRINT "MEHRWERTSTEUER-BERECHNUNG" 
28 PRINT . 

38 INPUT "NETTO: "3NET 

48 PRINT "MWST ="5NET#9.14 

56 LET BRUT = NET#1.14 

68 PRINT "BRUTTO ="5BRUT 
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Die bisher verwendeten Variablen (NET, BRUT, MWST) 
dienten dazu, jeweils einen Zahlenwert zu speichern; es 


ist aber auch möglich, beliebige Zeichenfolgen oder 
Texte unter einem Variablennamen zu speichern. Die 
entsprechenden Variablen unterscheiden sich von den 
numerischen Variablen dadurch, daß sie mit dem $- 
Zeichen enden, z.B. A$ oder NAME$. (Auch hier ist aber 
wieder zu berücksichtigen, daß der Computer nur die 
beiden ersten Zeichen des Variablennamens - sowie 


natürlich das $-Zeichen - beachtet!) 


Außerdem ist es bei der Verwendung von Variablen 
wichtig zu wissen, daß die Bezeichnungen TI, TI$ und ST 
bereits für bestimmte Aufgaben des Computers reserviert 
sind und nicht als normale Variablennamen verwendet 
werden können (s. auch Kapitel 3 und 4). 


In dem letzten Beispiel könnte man die Überschrift 
zunächst einer Stringvariablen (engl. string = Zeichen- 
kette) zuweisen und anschließend den Wert dieser Varia- 
blen in einer PRINT-Anweisung ausgeben: 


5 U$ = "Mehrwertsteuer-Berechnung:" 
10 PRINT u$ 


Dieses Verfahren bringt im vorliegenden Programm- 
Beispiel zwar keinen Vorteil, doch können Sie sich 
sicher leicht vorstellen, daß die Sache schon anders 
aussieht, wenn dieser Text mehrfach im Laufe des Pro- 
gramms ausgegeben werden sollte. Ein weiterer Vorteil 
eines solchen Vorgehens ergibt sich bei Programm- 
änderungen: in diesem Fall wäre nur eine einzige Zeile 
zu ändern, egal, ob die entsprechende Variable einmal 
oder hundertmal im Programm vorkommt. 


Die Zuweisung zu einer Stringvariablen kann ebenso 
wie die zu einer numerischen Variablen auch über eine 
INPUT-Anweisung erfolgen. Das alte Programm-Beispiel 
kann z.B. so erweitert werden, das zuerst noch eine 
Artikel-Bezeichnung erfragt wird. Gleichzeitig wird in 
der folgenden Programm-Version von der Möglichkeit 
Gebrauch gemacht, mehrere BASIC-Anweisungen in eine 
Programmzeile zu schreiben, wobei die einzelnen An- 
weisungen durch einen Doppelpunkt getrennt werden: 
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5 U$="MEHRWERTSTEUER-BERECHNUNG" 
18 PRINT U$ 

15 PRINT 

28 INPUT "ARTIKEL "5A$ 

30 INPUT "NETTO ="5NET: PRINT 
48 PRINT A$5" MWST ="5NET*0.14 
50 LET BRUT=NET#1.14 

66 PRINT A$5" BRUTTO =";BRUT 


Wenn man mehrere Anweisungen in eine Programmzeile 
schreibt (vgl. Zeile 30), muß man die maximale Zeilen- 
länge einer Programmzeile beachten: im Commodore-BASIC 
darf eine BASIC-Zeile höchstens 80 Zeichen enthalten. 


Da wir gerade bei Einschränkungen sind: eine 
Zeichenkette; also ein String, darf auch nicht. beliebig 
lang sein, sondern kann nur bis zu 255 Zeichen ent- 
halten. Sollte diese Länge überschritten werden, so 
gibt der Computer eine entsprechende Fehlermeldung aus: 
STRING TOO LONG (s. auch Anhang: Fehlermeldungen). 


während eine Eingabe über die INPUT-Anweisung 
immer mit der RETURN-Taste abgeschlossen werden muß, 
(wie alle übrigen Anweisungen auch) gibt es noch eine 
andere Eingabemöglichkeit, die es erlaubt, ein Programm 
mit nur einem Tastendruck zu steuern. Damit kommen wir 
- nach der Besprechung von Ein- und Ausgabe, Arithmetik 
und Zuweisung - auch schon zum letzten der fünf grund- 
legenden Elemente zur Darstellung von Algorithmen, zur 
Verzweigung. 


Verzweigungen 


Das bisher besprochene Programm-Beispiel läßt sich 


dadurch charakterisieren, daß die einzelnen Schritte 
einfach in einer eindeutig festgelegten Reihenfolge 
nacheinander abliefen, genau so, wie sie auch nachein- 


ander im Programm stehen. Eine solche Programm-Struktur 
nennt man auch linear. 


Die Grenzen eines linearen Programm-Ablaufs zeigen 
sich aber schon an unserem kleinen Beispiel-Programm: 
für jede neue Berechnung mußte das Programm immer wie- 
der neu gestartet werden. 
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Dem Flußdiagramm der bisherigen 
ist im folgenden eine andere 
gestellt, die nach jeder Berechnung eine Abfrage 


hält, ob das Programm fortgesetzt werden soll. 


U$ = "Mehrwert 
stever berechnung 
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U$ = "Mehrwert- 
steverberechnun 


AA x» Netto 


Eingabe A$: 
weitere 
Berechnungen 


Berechnung 


Programm-Version 
Fassung gegenüber- 
ent- 


Im folgenden Programm sehen Sie, wie in BASIC eine 
Bedingung überprüft bzw. eine Entscheidung getroffen 
werden kann: Nach einer Berechnung wird das Programm 
nicht automatisch beendet, sondern über die INPUT- 
Anweisung wird gefragt, ob das Programm fortgesetzt 
werden soll (Zeile 60). Als Eingabe wird der Buchstabe 
J (für ja) bzw. N (für nein) erwartet und unter dem 


Namen der Variablen A$ gespeichert. In Zeile 70 wird 
dann in einer IF-Anweisung überprüft, 

IF ... ob das eingegebene Zeichen ein De 
ist. Nur dann, wenn diese Bedingung 

THEN ... erfüllt 17T; wird die auf das 


Schlüsselwort THEN folgende Anweisung 
ausgeführt. Ist die nach IF stehende Bedingung nicht 
erfüllt, wird das Programm sofort mit der nächsten 
Zeile fortgesetzt. Im Unterschied zu einem linearen 
Programmablauf kann ein Programm auf diese Art und 
Weise Verzweigungen enthalten. 


28 FRINT 

25 INPUT "ARTIKEL "5A$ 

3@ INPUT "NETTO ="5NET:PRINT 

48 PRINT A$5" MWST =";5NET#8.14 
45 LET BRUT=NET#1.14 

s@ PRINT A$;" BRUTTO ="3BRUT 

68 INPUT "WEITER (J/N)"5A$ 

78 IF A$="J" THEN GOTD 19 

808 FRINT "ENDE DER BERECHNUNGEN!" 


Die auf das Schlüsselwort THEN (in Zeile 70) fol- 
gende Anweisung ist ebenfalls neu: GOTO 10 ist ein 
unbedingter Sprungbefehl, der bewirkt, daß das Programm 

mit der angegebenen Zeilennumnmer - also 10 
SO’TO win diesem Fall - fortgesetzt wird. Steht 
GOTO hinter der Anweisung THEN, reicht es 

allerdings aus, nur die Zeilennummer anzugeben. 


Wie bereits erwähnt, gibt es noch eine andere 
Möglichkeit, Daten während des Programmlaufes einzu- 
geben, wobei die Eingabe nicht mit der RETURN- 

SET Taste abgeschlossen werden muß. Es handelt 
sich um die GET-Anweisung, die nur ein Zeichen 

von der Tastatur annimmt und danach sofort die Pro- 
grammausführung fortsetzt. Wie bei der INPUT-Anweisung 
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wird das eingegebene Zeichen unter dem Namen der nach 
GET stehenden (numerischen oder String-) Variablen 
gespeichert und kann danach zur Steuerung des Programm- 
ablaufes benutzt werden, 


Abgesehen davon, daß mit der GET-Anweisung nur ein 
Zeichen eingegeben werden kann, unterscheidet sie sich 
auch dadurch von der INPUT-Anweisung, daß kein Text mit 
ausgegeben werden kann; dies muß vorher mit PRINT ge- 
schehen. Da in unserem Programm-Beispiel nur ein Zei- 
chen einzugeben ist, kann die INPUT-Anweisung wie folgt 
durch GET ersetzt werden: 


68 GET A$ 
65 IF A$="" THEN GOTO 69 


Bei dieser Version genügt es dann, zur Fortsetzung 
des Programmes nur die J-Taste zu drücken; jede andere 
Eingabe beendet das Programm wieder. In den Zeilen 60 
und 65 wird die Tastatur solange abgefragt, bis eine 
Taste gedrückt wird. In dem Fall wird der Variablen A$ 
das Zeichen dieser Taste zugewiesen und das Programm 
mit der folgenden Anweisung (hier also 70) fortgesetzt. 


Die GET-Anweisung ist also (in Verbindung mit der 
IF-Anweisung) besonders gut dazu geeignet, Programme 
mit minimalem Tipp-Aufwand von der Tastatur her zu 
steuern. 


Mit den BASIC-Anweisungen, die Sie bisher kennen- 


gelernt haben, können Sie nun schon grundsätzlich eine 
Vielzahl von kleineren Aufgaben programmieren: Sie 
wissen, wie Sie Daten in den Computer hineinbekommen 


und wie bestimmte Verarbeitungen (z.B. Zuordnungen oder 
Berechnungen) möglich sind. Sie kennen den Unterschied 
zwischen einem linearen und einem nichtlinearen Pro- 
grammablauf und wissen, wie man ein Programm durch 
einen einzigen Tastendruck "im Dialog' mit dem Computer 
steuern kann. 


Es gibt jedoch noch eine ganze Reihe von weiteren 
BASIC-Anweisungen, die weitaus leistungsfähigere Pro- 
gramme ermöglichen. Diese Anweisungen sollen im folgen- 
den Kapitel - illustriert durch kleine Beispielpro- 
gramme vorgestellt werden. 
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Speichern von Programmen 


Falls Sie jetzt schon Programme schreiben, die Sie 
auch abspeichern und später wieder laden wollen, be- 
nötigen Sie dazu folgende Anweisungen (nähere Erläute- 
rungen folgen in Kapitel 4). 


Wenn Sie einen Kassettenrecorder benutzen, können 
Sie ein Programm durch: 


SAVE "Name" 
abspeichern und mit: 

LOAD "Name" 
wieder in den Arbeitsspeicher des Rechners laden, 
"Name" ist dabei der Name, den Sie für Ihr Programm 


gewählt haben. Er darf nicht mehr als 16 Zeichen ent- 
halten und muß in Anführungszeichen stehen. 


Die entsprechenden Anweisungen für ein Disketten- 
laufwerk lauten: 
SAVE '"Name",8 


bzw.: 


"LOAD '"'Name",8 


SL. 


Q_ 
x A 
A WLWUN CL 
> LuJ m I 
ZUuUXxhH <WIO 


38 


3 


Weitere BASIC - 
°Anweis ungen 


Weitere BASIC-Arweisurger 


Im zweiten Kapitel haben Sie bereits grundlegende 
Elemente der Programmiersprache BASIC kennengelernt, 
und Sie wissen inzwischen auch aus dem vorigen Kapitel, 
wie Sie Programme dauerhaft auf einer Kassette oder 
Diskette speichern können, um sie später wieder zu 
benutzen. 


In diesem Kapitel sollen nun alle bisher noch 
nicht besprochenen BASIC-Anweisungen, die der Commodore 
64 versteht, vorgestellt werden. 


Daten im PO Ram Mm 


Das nächste kleine Programm läßt sich als Telefon- 
verzeichnis oder für ähnliche Anwendungen verwenden. 
wie bekommen wir die Daten dafür in den Computer? Bei 

der Eingabe über INPUT wurden die Daten 

READ während des Programmlaufs eingegeben - und 

waren verschwunden, wenn das Programm 

DATA gelöscht wurde. Die Anweisungen READ und 

DATA, die immer zusammen verwendet werden 

müssen, können unser Problem 1l6sen. Betrachten Sie dazu 
das folgende Programm: 


18 REM TELEFONVERZEICHNIS 

28 INPUT"NAME: "3N% 

3@ READ X$,T 

48 IF X$="*" THEN GOTO 80 

59 IF X$<>N$ THEN GOTD 38 

&0 PRINT N$,T 

78 GOTO 9@ 

88 PRINT "NAME NICHT VORHANDEN!" 

98 INPUT"WEITER (J/N)"3A$ 

188 IF A$="J" THEN RESTORE: GOTO 20 
118 END 

128 REM. ooananunnn DATEN 

130 DATA MICHAEL, 78214, HANS, 55383, BEATE, 42719 
148 DATA ANNE, 35126, KARL, 71742 

150 DATA #,0 
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Gleich in der ersten Zeile finden Sie eine neue 
Anweisung, REM (engl.: remark, Bemerkung), die zur 
Kennzeichnung einer Kommentarzeile dient: alles, was in 

der betreffenden Zeile hinter dieser Anweisung 
REM steht, wird vom Computer ignoriert. REM-Zeilen 
dienen also ausschließlich der Information des 
Benutzers. Machen Sie trotzdem ausgiebig Gebrauch von 
dieser Möglichkeit, Ihr Programm zu dokumentieren, da 
Sie bei längeren Programmen sonst schon nach kurzer 
Zeit selbst nicht mehr wissen, was das Programm eigent- 
lich tun sollte. 


Der READ-Befehl in Zeile 30 bewirkt nun folgendes: 
Der erste Wert aus einer DATA-Zeile wird der hinter 
READ stehenden Variablen zugewiesen. Befinden sich - 
wie in unserem Fall - mehrere Variablen (durch Komma 
getrennt) hinter der READ-Anweisung, so wird der zwei- 
ten Variablen der zweite Wert aus den DATA-Zeilen zu- 
gewiesen usw. Jede weitere READ-Anweisung liest dann 
die folgenden Daten ein. 


Nachdem das erste Datenpaar eingelesen wurde, wird 
zunächst überprüft, ob das Ende der Liste schon er- 
reicht wurde, d.h. ob der zuletzt gelesene "Name" ein 
"x" war. Wenn ja, ist der gesuchte Name nicht vorhan- 
den, und eine entsprechende Meldung wird in Zeile 80 
ausgegeben. Ist das Ende der Liste noch nicht erreicht, 
so wird in Zeile 50 der mit READ aus der DATA-Zeile 
gelesene Name mit dem in N$ gespeicherten eingegebenen 
Namen verglichen. Stimmen die beiden Namen nicht Üüber- 
ein, so wird das nächste Datenpaar gelesen usw. Fällt 
dieser Vergleich jedoch positiv aus, ist der gesuchte 
Name gefunden und wird zusammen mit der dazugehörigen 
Telefonnummer (T) ausgegeben. 


Durch die Abfrage in Zeile 90 gesteuert, kann man 
beliebig oft nach einem Namen suchen. Durch RESTORE 
(Zeile 100) wird der DATA-"Zeiger 
RESTORE jedesmal wieder auf den Anfang der 
DATA-Zeilen gesetzt, damit der Rechner 

die Liste immer wieder von vorne durchlesen kann. 


DATA-Zeilen können übrigens an beliebiger Stelle 

im Programm stehen, also auch vor einer READ-Anweisung 
und auch nach einer END-Anweisung, die zur 

END Kennzeichnung des Programmendes dient. Diese 
Anweisung kann zwar in den meisten Fällen 
entfallen, nämlich dann, wenn das Programm mit der 
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letzten Zeile endet; man benötigt sie jedoch in solchen 
Fällen, in denen das Programm auf Grund von Verzweigun- 
gen nicht mit der letzten Zeile beendet ist. 


wenn Sie dieses Programm nun speichern, können Sie 
Ihr Telefon- oder Adressverzeichnis jederzeit wieder in 


den Computer einladen und benutzen. Wie Sie gesehen 
haben, spielt die Reihenfolge der Daten überhaupt keine 
Rolle, da gegebenenfalls immer die ganze Liste durch- 


sucht wird. 


wiederholte vorgänge 


Ein Computer bietet sich in geradezu idealer Weise 
dazu an, sich wiederholende Berechnungen durchzuführen. 
Zur Illustration wollen wir ein Programm machen, das 
eine Tabelle der Quadrat- und Kubikzahlen für die Zah- 
len von 1 bis 10 erstellt: 


18 REM TABELLE DER QUADRAT- UND KUBIKZAHLEN 
28 PRINT ” X","X12","X13": REM UEBERSCHRIFT 
38 X=B 

48 X=X+1 

38 PRINT X,X%#X,X13 

68 IF XX18 THEN GOTO 40 

78 END 


wie Sie sehen, dient das T-Zeichen zur Darstellung 

der Exponentenschreibweise. Das Programm würde um keine 
einzige Zeile länger, wenn die entsprechende Tabelle 
für 100, 1000 oder noch mehr Zahlen berechnet werden 
sollte, da dies nur von einem einzigen Wert abhängig 
ist: der Zahl in Zeile 60, die angibt, wie oft der Pro- 
grammteil von Zeile 40 an durchlaufen werden soll. (Bei 
diesen Berechnungen dürften eigentlich nur ganzzahlige 
Ergebnisse auftreten; davon abweichende Werte sind 
Rundungsfehler.) 


Für solche Fälle, wenn man also weiß, wie oft ein 
bestimmter Programmabschnitt wiederholt werden soll, 
gibt es noch eine besondere BASIC-Anweisung, die außer- 
dem noch weitere Möglichkeiten bietet. Mit Hilfe dieser 
Anweisung wollen wir unser letztes Programm so ändern, 
daß unsere Tabelle nur die Quadrat- und Kubikwurzeln 
der geraden Zahlen von 2 bis 20 enthält: 
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1@ REM TABELLE DER BUADRAT- UND KUBIKZAHLEN 
28 PRINT " X","XxX", "Xt3": REM UEBERSCHRIFT 
30 FOR X=2 TO 26 STEP 2 

48 PRINT X,X#X,X13 


58 NEXT X 
68 END 
Die Programm-"Schleife" wird nun durch die An- 
weisungen: 
FOR variable = anfangswert TO endwert STEP schrittweite 


NEXT variable 


realisiert, d.h. die in der Schleife stehenden Zuwei- 
sungen werden so oft wiederholt, bis die Laufvariable 
(hier: X) den hinter TO angegebenen Endwert erreicht 
hat. Dabei wird der Anfangswert bei 

FOR ... TO jedem Durchgang um die hinter STEP 
angegebene Schrittweite erhtcht. Die 

NEXT Angabe 'STEP Schrittweite' kann 
entfallen, wenn die Schrittweite 

gleich eins ist. Die Laufvariable dient aber nicht nur 
als Zähler, sondern kann gleichzeitig für Berechnungen 
innerhalb der Schleife verwendet werden, wie das Bei- 


spiel zeigt. 


FOR-Anweisungen dürfen zwar ineinander verschach- 
telt sein, sich jedoch nicht überkreuzen: 


FOR I=A... FORI=... 
FOR K=1... 
FOR K=.. 
NEX<TIL 
NEXT K 
Neren NEXT K 
Erlaubt! Verboten! 
Außerdem ist zu beachten, daß in eine Schleife 


nicht hineingesprungen und der Wert der Laufvariablen 
innerhalb der Schleife nicht verändert werden darf. 
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Einfache variablen 


Sie kennen schon zwei Typen von Variablen: die 
einen dienen zur Speicherung von Zahlen, die anderen 
zur Speicherung von Zeichenketten (oder Strings). Für 
beide gilt, daß ein Variablenname mit einem Buchstaben 
beginnen muß und das nächste Zeichen ein weiterer Buch- 
stabe oder eine Ziffer sein darf. Man kann zwar längere 
Variablennamen benutzen, muß dann jedoch beachten, daß 
sich alle Namen in den beiden ersten Zeichen unter- 
scheiden, da nur diese vom Computer ausgewertet werden. 


Beispiele für zulässige Wertzuweisungen sind: 


A = 1 

ı Eer1258 

ALPHA = -123.456 (ALPHA = AL!) 
AS 2 114 " 

G$ = "GUTEN TAG!" 


Die durch das $-Zeichen gekennzeichnete String- 
variable A$ hat nichts mit der Variablen A zu tun! Und 
obwohl mit der Anweisung PRINT A,A$ zweimal die Ziffer 
'1'! ausgegeben wird, handelt es sich nur im ersten Fall 
um die Zahl 1, im zweiten jedoch um den String "1", mit 
dem man natürlich z.B. keine Rechenoperationen vorneh- 
men kann. Das können Sie leicht überprüfen, wenn Sie 
einmal versuchen, die Werte der Variablen A und A$ zu 
addieren. Das Resultat ist nicht etwa '2', sondern eine 
Fehlermeldung, weil Sie versucht haben, eine unzu- 
lässige Rechenoperation durchzuführen. 


Die bisher bekannten numerischen Variablen können 
sowohl ganze Zahlen als auch Dezimalzahlen speichern. 
In manchen Fällen kann es aber ausgeschlossen werden, 
daß Dezimalzahlen überhaupt vorkommen (Telefonnummern 
z.B. können nur ganzzahlig sein). Dafür gibt es einen 
besonderen Variablentyp, der nur ganze Zahlen speichern 
kann. Die Kennzeichnung dieser Variablen erfolgt durch 
Anhängen des %-Zeichens an den Variablennamen. Diese 
Variablen werden als Integer-Variablen bezeichnet, 
wogegen die bisher bekannten Real-Variablen heißen. 
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Beispiele für die Zuweisung zu Integer-Variablen 
sind: 


A% = 1 
X1% = 12.8 
ALPHA% = -1234 


wird einer Integer-Variablen ein nichtganzzahliger 
Wert zugewiesen, so wird dieser automatisch in eine 
ganze Zahl umgewandelt. Dies geschieht aber nicht durch 
Rundung der Zahl, sondern dadurch, daß gadie Nachkomma- 
stellen einfach abgeschnitten werden, Die Variable X1% 
hat also nach der obigen Zuweisung den Wert 12, wie Sie 
leicht feststellen können. 


Da Integer-Variablen weniger Speicherplatz benöti- 
gen als Real-Variablen, kann man durch ihre Verwendung 
eventuell viel Speicherplatz sparen. Dies gilt vor 
allem dann, wenn es sich nicht um einfache Variablen 
handelt, die also nur einen Wert aufnehmen können, 
sondern um indizierte oder Feld-Variablen, die im Üüber- 
nächsten Abschnitt besprochen werden. 


Der geringere Speicherplatzbedarf für Integer- 
Variablen hat natürlich auch seinen Preis. Dieser be- 
steht darin, daß der Wertebereich für diesen Typ nur 
von -32767 bis 32767 reicht. 


Real-Variablen hingegen können Zahlen im Bereich 
von + 1.701411183E+38 und + 2.93873588E-39 speichern. 


Diese Zahlendarstellung, die zunächst etwas ver- 
wirrend aussehen mag, ist die wissenschaftliche oder 
exponentielle (daher der Buchstabe E) Notation. Dies 
ist nichts anderes als eine abkürzende Schreibweise, 
die insbesondere zur Darstellung sehr großer bzw. sehr 
kleiner Zahlen benutzt wird. Das Zeichen E darin steht 
für 'Exponent zur Basis 10', wobei mit Exponent die 
darauf folgende Zahl gemeint ist. Die Zahl vor dem 
Buchstaben E ist ein Faktor, mit dem das Ergebnis der 
Exponentiation multipliziert werden muß. Das hört sich 
vielleicht kompliziert an, tatsächlich aber ist das 
IImrechnen von der exponentiellen zur "normalen" Dezi- 
maldarstellung (und umgekehrt) ziemlich einfach. 


Betrachten Sie dazu einmal die folgende Gegenüber- 


stellung einiaer Zahlen in dezimaler und exponentieller 
Schreibweise: 
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Dezimaldarstellung Exponentielle Notation 


1 TEO = 1 * 10T0 
10 TE3 = 1 % 1071 
100 IE2 = 41. 41012 
123 1x.23E2 = 123% 19Te 
123000000000 1s23E11 = 1.23 * 10711 


4 1E-1 =: 4-8 461-7 
.01 1E-2 Sr O2 
.001 1E-3 = 4. & 40f-3 
.00123 1,23E23 =2.41,23:#'401=3 


. 00000000000123 1.23E-11 1.23 * 101-141 


Die Umrechnung einer Zahl aus der Exponential- in 
die Dezimalschreibweise ist einfach rein mechanisch so 
möglich: 


Ist der Exponent (die Zahl hinter E) positiv, so 
erhält man die dezimale Notation, indem man das Komma 
bzw. den Dezimalpunkt der vor E stehenden Zahl um die 
im Exponenten angegebene Zahl nach rechts verschiebt. 
Gegebenenfalls ist eine entsprechende Anzahl von Nullen 
anzufügen. 


Ist der Exponent negativ, so handelt es sich um 
eine Zahl, die kleiner ist als 1. Zur Umrechnung in die 
Dezimalschreibweise wird das Komma um die im Exponenten 
angegebene Zahl nach links verschoben, wobei die not- 
wendige Anzahl von Nullen einzufügen ist. 


Kehrt man diese Berechnungen sinngemäß um, so 
erhält man aus der dezimalen die exponentielle Nota- 
tion: Von links beginnend stellen die von Null ver- 


schiedenen Zahlen den Faktor für den Exponentialaus- 
druck dar. Dieser Faktor (auch Mantisse genannt) erhält 
einen Dezimalpunkt nach der ersten Stelle. Hinter dem 
Zeichen E wird dann als Exponent die Zahl notiert, die 
angibt, um wieviele Stellen das Komma nach rechts bzw. 
links verschoben wurde. 
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Häufig kommt es vor, daß man an verschiedenen 
Stellen eines Programms die gleiche Anweisungsfolge 
benötigt. Es wäre nicht sehr wirtschaftlich, diese 
gleichartigen Programmteile mehrmals im Computer zu 
speichern (abgesehen von dem Schreibaufwand, der beim 
Programmieren entsteht). Deshalb schreibt man den ent- 
sprechenden Programmnteil nur einmal in Form eines 


Unterprogramms, das dann vom Hauptprogramm aus "auf- 
gerufen" wird. Wenn das Unterprogramm seine Aufgabe 
erledigt hat, wird das Programm an der Stelle fort- 
gesetzt, von der aus der Aufruf des Unterprogramms 
erfolgte. 


Durch die Verwendung von Unterprogrammen wird ein 
Programm jedoch nicht nur kürzer, sondern auch üÜüber- 
sichtlicher. Das folgende Programm macht von der Unter- 
programmtechnik Gebrauch: 


18 REM ADDITION ZWEIER GANZER ZAHLEN 

26 PRINT "1. ZAHL=" 

38 GOSUB 208 

46 Ni1=N 

50 PRINT "2. ZAHL=" 

66 GOSUB 200 

78 N2=N 

88 PRINT "SUMME: " 

96 GOSUB 200 

188 IF N=Ni+N2 THEN PRINT "RICHTIG!": GDTO 20 
118 PRINT "FALSCH!": GOTO 88 

200 REM... .UNTERPROGRAMM ZUR EINGABE 

218 INPUT N 

226 IF N<>INT{N) THEN PRINT"NUR GANZE ZAHLEN!": GDTD 210 
230 RETURN 


READY. 
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Das Programm erwartet die Eingabe zweier ganzer 
Zahlen sowie deren Summe. Hat man die Summe richtig 
angegeben, wird man mit der Antwort "RICHTIG!" belohnt, 
ansonsten erfolgt die Meldung "FALSCH!", und das Pro- 
gramm fragt solange nach der Summe, bis die richtige 
Zahl angegeben wird. Da keine Bedingung für ein Beenden 
des Programms eingebaut wurde, kann es nur mit der 
RUN/STOP- und RESTORE-Taste abgebrochen werden. 


Der Aufruf eines Unterprogramms erfolgt mit der 
Anweisung GOSUB, gefolgt von der Zeilennummer, an der 
2: das Unterprogramm beginnt. Der Rück- 
GSOSUE sprung zum aufrufenden Programmteil wird 
einfach durch die Anweisung RETURN be- 
RETURN wirkt. Der Computer 'merkt' sich jeweils 
die Stelle, von der aus eine Verzweigung 

ins Unterprogramm erfolgte. 


Die Eingabe sämtlicher Zahlen erfolgt in dem 
Unterprogramm, das bei Zeile 200 beginnt. Es ist zu 
beachten, das alle im Unterprogramm benutzten Variablen 
im gesamten Programm gelten. Will man in BASIC ein 
bereits geschriebenes Unterprogramm in ein bestehendes 
Programm einbauen, muß man also selbst gegebenenfalls 
für eine entsprechende Umbenennung der Variablennamen 
sorgen. Außerdem kann es erforderlich sein, die Zeilen- 
numerierung zu ändern. 


wie stellt der Computer übrigens fest, ob essich 
bei der eingegebenen Zahl um eine ganze Zahl handelt? 
Die entsprechende Überprüfung erfolgt in Zeile 220: 


220 IF N<>INT(N) THEN PRINT"NUR GANZE ZAHLEN!":GOTO 210 


Die ins BASIC 'eingebaute' Standardfunktion INT 
macht aus der in Klammern als Argument angegebenen Zahl 
(es kann auch ein Ausdruck sein, der erst noch be- 
rechnet werden muß, wie z.B.: 2 + 3.4) eine ganze Zahl, 

indem einfach der Nachkommateil abgeschnitten 

INT wird. Dabei erfolgt keine Rundung des Ergeb- 

nisses. Aus 5.01 wird also 5, ebenso aber auch 

aus 5.89. Wie man diese Funktion aber auch zum Runden 

von Rechenergebnissen verwenden kann, erfahren Sie bei 

der Besprechung der "Eingebauten Funktionen" im weite- 
ren Verlauf dieses Kapitels. 
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P.r2., 036 09.2 
ten 


Möchte man in Abhängigkeit vom Wert einer Variab- 
.en jeweils zu verschiedenen Programmteilen verzweigen, 
kann man natürlich eine entsprechen- 
ON SOTO de Anzahl von IF-Anweisungen verwen- 
den, die je nach Ausgang des Ver- 
ON GSOSUE gleichs die gewünschte Verzweigung 
bewirken, z.B.: 
1. "EHEN. !GOTO TOO 
IFN = 2 THEN GOTO 150 


IH 

DI 

zZ 
| 


IF N2=: K.SEHEN GOTO 
Diese Anweisungen lassen sich vereinfachen zu: 
ON: N: GOTO: 100,150; 425 


Dabei wird in Abhängigkeit des Wertes N=1,2,3, ... 
das Programm mit der 1., 2., 3. usw. hinter GOTO ste- 
henden Zeilennummer fortgesetzt. 


Eine entsprechende Möglichkeit gibt es auch für 
die Verzweigung zu verschiedenen Unterprogrammen. Sie 
lautet: 


ON N GOSUB-. 100,130, es 


Hat N beispielsweise den Wert 2, so wird das 
Unterprogramm aufgerufen, das an 2, Stelle in der hin- 
ter GOSUB stehenden Liste angegeben ist, hier also 150. 


llenverarbeitung mi t 
ern 


Bisher haben wir nur mit einfachen Variablen zu 
tun gehabt, die als Platzhalter für einen einzigen 
Zahlenwert oder eine Zeichenkette (String) dienten. Es 
ist jedoch auch möglich, unter nur einem Namen mehrere 
Variablen anzusprechen, wobei die Unterscheidung dann 
durch die Angabe eines Index erfolgt. 
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Eine indizierte oder Feldvariable - oder kurz: ein 
Feld - ist im Grunde nichts anderes als eine Tabelle, 
die ja auch nur eine Bezeichnung hat. Die Bezugnahme 
auf einen bestimmten Wert aus einer Tabelle erfolgt da- 
durch, daß man die Zeile angibt, in der der betreffende 
wert steht. Hat die Tabelle mehrere Spalten, so ist zu- 
sätzlich die Angabe der Spalte erforderlich. 


Ein Beispiel soll dies veranschaulichen. Die mo- 
natlichen Umsätze eines Betriebes sollen für den Zeit- 
raum eines Jahres in einer Tabelle dargestellt werden: 


MONAT UMSATZ 


7000 
7400 
6800 
6500 
7600 
7900 
8200 
8500 
7800’ 
7100 
6400 
6200 


ER 
OOO SO OIPO@D -4 


A 
N — 


Nennen wir die Tabelle kurz UM, so können wir z.B. 
den 5. Wert mit UM(5) bezeichnen usw. Durch eine 
derartige Angabe ist ein Wert aus der Tabelle eindeutig 
bestimmt. 


wie speichert man eine solche Tabelle im Computer? 
Man kann natürlich für jeden Wert eine eigene Variable 
verwenden und etwa folgende Zuweisungen vornehmen: 


10 REM TABELLE MIT EINFACHEN VARIABLEN 
20 READ A,B,C,D,E,F,6,H,1,J,K,L 

180 REM» 224400400 0nn nn DATEN 

118 DATA 7000, 7400, 6800, 4500, 76008, 7700 
120 DATA 8200, 8500, 7800, 7100, 6400, 6200 
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Angenommen, wir wollen nun die Summe dieser Werte 
ermitteln. Also fügen wir folgende Zeilen ein: 


36 SUM = A+B+C+D+E+F+G+H+1I+J+K+L 
48 PRINT "SUMME = ";SUM 


Diese Aufgabe ist zwar mit einiger Schreibarbeit 


verbunden, aber es geht. Noch! - Denn stellen Sie sich 
vor, daß die Tabelle nicht 12, sondern 100, 1000 oder 
noch mehr Zahlen enthält: offensichtlich sind Sie dann 


sehr bald am Ende Ihrer Geduld und der Computer an den 
Grenzen seiner Speicherkapazität angelangt! 


wie Sie sich schon denken können, verwendet man in 
solchen Fällen keine einfachen, sondern Feldvariablen. 
In unserem Beispiel käme dabei folgendes heraus: 


10 REM TABELLE MIT FELDVARIABLEN 

20 DIM UM(12) 

3® FOR I=1 TO 12 

48 READ UM(T) 

5® SUM = SUM+UM(I) 

68 NEXT I 

78 PRINT"SUMME =";SUM 

100 REMeenneaennannanannnn DATEN 

118 DATA 7000, 7400, 6500, 6590, 7680, 7900 
120 DATA 8200, 8500, 7800, 7100, 6408, 6200 


READY. 
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Was gibt es neues in diesem Programm? Vor der 
Verwendung einer Feldvariablen muß man dem Computer zu 
Beginn des Programms mitteilen, wie groß das betreffen- 
de Feld sein soll, damit eine entsprechende Zahl von 

Speicherplätzen dafür vorgesehen werden kann: 

DIM das Feld muß "dimensioniert" werden. Die An- 

weisung dazu heißt DIM, gefolgt von dem Namen 

des Feldes, hinter dem in Klammern die Anzahl der zu 
reservierenden Speicherplätze steht. 


Tatsächlich werden mit der Anweisung DIM UM(12) 
allerdings 13 Speicherplätze reserviert, da die Index- 
zählung mit Null beginnt, sodaß wir also auch der 
Variablen UM(O) einen Wert zuweisen könnten. 


Notwendig ist eine Dimensionierung zwar erst dann, 
wenn der größte Index mehr als 10 beträgt, da der 
Computer bei Feldvariablen automatisch eine Dimensio- 
nierung bis 10 vornimmt; es ist jedoch empfehlenswert, 
in jedem Fall die Dimensionierung ausdrücklich anzu- 
geben: zum einen spart man dadurch einigen Speicher- 
platz, zum anderen erhöht es die Übersicht über das 
Programm, wenn alle indizierten Variablen vorweg ver- 
einbart werden. 


wie eine Tabelle nicht nur aus einer Spalte be- 
stehen muß, können auch Feldvariablen mehr als eine 
Dimension haben. Die einzelnen Indizes werden dabei 
durch Komma getrennt angegeben. Z.B. bezeichnet A(2,5) 
die 2. Zeile, 5. Spalte einer 2-dimensionalen Tabelle. 
Die Dimensionierung erfolgt entsprechend durch die 
Angabe der beiden Indexgrenzen, z.B. DIM A(12,10). 
Beachten Sie, daß dadurch insgesamt (12+1) * (1041) = 
143 Speicherplätze reserviert werden! Mit ziemlich 
harmlos aussehenden DIM-Anweisungen kann man sehr 
schnell an die Grenzen der Speicherkapazität des Com- 
puters gelangen; so würde der Rechner etwa bei einer 
Dimensionierungs-Anweisung wie DIM A(500,100,10) ein- 
fach 'aussteigen', da er nicht annähernd soviele 
Speicherplätze besitzt (501*101*11 = 556611). 


Das letzte Programmbeispiel soll jetzt so erwei- 
tert werden, daß wir mit den monatlichen Umsätzen von 
drei Betrieben Berechnungen anstellen wollen. Dazu 
legen wir die folgende Tabelle zu Grunde: 
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MONAT BETRIEB 1 BETRIEB 2 BETRIEB:3 


1 7000 6500 8100 
m: 7400 6900 Ä 8200 
3 6800 7300 8500 
4 6500 7900 9100 
5 7600 7300 9500 
6 7900 7200 9900 
7 8200 8000 | 8800 
8 8500 7300 8200 
9 7800 6700 7900 
10 7100 6600 7400 
11 6400 6300 7200 
42 6200 5800 6900 
Die Aufgabe soll nun darin bestehen, die drei 


Jahressummen (je Betrieb) sowie die 12 monatlichen 
Summen aus den drei Betrieben zu ermitteln. 


Außer dem zweidimensionalen Feld UM, das die Daten 
aus der Tabelle aufnehmen soll, werden zwei weitere 
Felder dimensioniert, die für die Speicherung der 
Jahressummen (JS) bzw. Monatssummen (MS) benutzt wer- 
den. 


Das Programm liest zunächst sämtliche Daten aus 
den DATA-Zeilen ein (Zeile 30 - 80). Es wäre natürlich 
möglich, schon beim Einlesen Berechnungen vorzunehmen, 
der Übersicht halber geschieht dies jedoch jeweils 
getrennt in den beiden folgenden Programmteilen. 


In den Zeilen 100 - 160 werden die drei Jahres- 
summen berechnet. Deshalb läuft die äußere FOR-Schleife 
von 1 bis 3, entsprechend den drei Spalten der Tabelle. 
Für jede Spalte muß. 12mal der entsprechende Zeilenwert 
aufaddiert werden, um die Jahressumme zu erhalten: 
diese Aufgabe wird durch die innere Schleife (Index I) 
erledigt. Nach der Berechnung jeder der drei Summen 
wird der jeweilige Betrag ausgegeben (Zeile 150). 


Auf entsprechende Weise werden die 12 Monatssummen 


berechnet (Zeile 200 .- 260). Der Unterschied zur 
vorigen Berechnung liegt nur darin, daß die Indizes 


vertauscht sind, da die Daten ja nun zeilenweise auf- 
addiert werden sollen. Ä 
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REM ZWEIDIMENSIONALE TABELLENBERECHNUNG 
DIM UM(12,3),J5(3),M$(12) 

REM. .22@nnnnunnnnnn.„EINLESEN DER DATEN 
FOR I=1 TO 12 | 

FOR J=1 TO 3 

READ UM(1,J) 

NEXT J 
NEXT I. 

REN sa ere u... JAHRESSUMMEN 
PRINT" JAHRESSUMMEN" 

FOR J=1 T0 3 

FOR I=1 TO 12 

JS{N=IS(T+UM(I,J) 

NEXT I 

PRINT JS(J) 

NEXT J 

REM. nasanenunnnn nun nun nn» MONATSSUMMEN 
PRINT" MONATSSUMMEN" 

FOR I=1 TO 12 

FOR J=1 TO 3 

MS(I)=MS(I)+UM(I,J) 

NEXT J 

PRINT MS(1) 

NEXT I . 

REN: aaa DATEN 
DATA 7008, 6568, 8100 

DATA 7408, 6900, 8208 

DATA 6800, 7300, 8508 

DATA 6509, 79700, 9106 

DATA 7688, 7300, 9508 

DATA 7900, 7208, 7900 

DATA 8200, 8000, 8808 

DATA 8508, 7308, 8208 

DATA 7808, 6709, 7900 

DATA 7100, 6600, 7480 

DATA 6408, 6300, 7200 

DATA 6200, 5808, 6908 
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Eingebaute Funktionen 


Bis hierher haben Sie schon sämtliche BASIC- 


Anweisungen des Commodore 64 kennengelernt. Zusätzlich 
verfügt der Computer noch über "eingebaute” Funktionen 
zum Formatieren, für numerische Berechnungen, zur 


Textverarbeitung usw. 


Einige Standardfunktionen —- wie INT, TAB und SPC - 
haben wir schon verwendet. In diesem Abschnitt weraen 
sämtliche Standardfunktionen, nach Funktionsgruppen ge- 
ordnet, vorgestellt. | 


Formatierfunktionen 


POS(X) 

Diese Funktion ergibt die Position in der Bild- 
schirmspalte (O - 39), an der die nächste Ausgabe mit 
PRINT ausgeführt würde. 


SPC(X) 
Diese Funktion erzeugt X Leerzeichen (space). 


TAB(X) 

Tabulatorfunktion. Diese Funktion wird in PRINT- 
Befehlen benutzt. Das darauf folgende Zeichen wird in 
Spalte X ausgegeben. 


Numerische Funktionen 
ABS(X) Absolutwert 


Ergibt den absoluten Wert einer Zahl. Das Ergebnis 
ist immer positiv oder O. 


ATN(X) Arcustangens 

Ergibt den Winkel (im Bogenmaß), dessen Tangens X 
ist. 

COS(X) Cosinus 


Ergibt den Cosinus des Winkels X, der im Bogenmaß 
angegeben werden muß. 


EXP(X) Potenzfunktion 
Entspricht e?Tx, wobei e = 2.71828183. 
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FN F(x) Selbstdefinierte Funktion 
Liefert das Ergebnis einer vom Benutzer mit DEF FN 
definierten Funktion mit einer Variablen. 


INT(X) Integer-Funktion 

Ergibt den ganzzahligen Anteil einer Zahl X. Alle 
Stellen nach dem Dezimalpunkt werden abgeschnitten. Das 
Ergebnis wird nicht gerundet und ist immer kleiner oder 
gleich X. Das bedeutet, daß negative Zahlen dem Betrag 
nach größer werden, z.B. INT(-2.4) = -3, 


Die INT-Funktion kann jedoch auch zum Runden von 
Zahlen verwendet werden. Die Variable S in dem folgen- 
den Ausdruck gibt dabei die Zahl der Stellen hinter dem 
Dezimalpunkt an: 


X = INT(X*10TS+.5)/INT(107S+.5) 


Eine schnellere Berechnung ermöglicht die folgende 
Formel: 


X = INT(X#*P+.5)/P 


Mit P=10 wird auf eine Stelle, mit P=100 auf zwei, 
mit P=1000 auf 3 Stellen gerundet, usw. 


LOG(X) Natürlicher Logarithmus 

Ergibt den natürlichen Logarithmus von X zur Basis 
e. Zur Umwandlung in den Zehnerlogarithmus muß das 
Ergebnis durch LOG(10) dividiert werden. 


RND(X) RANDOM-Funktion 

Diese Funktion ergibt eine (Pseudo-)Zufallszahl 
zwischen O und 1. Die Folge der Zufallszahlen läßt sich 
durch das Argument X steuern. 


Um bei jedem Programmlauf einen neuen Anfangswert 
zu bekommen, sollte die erste Zufallszahl mit RND(-TI) 
erzeugt werden. Anschließend sollte X = OO oder positiv 
sein. 


Durch einen negativen Wert von X wird eine neue 
Startzahl bestimmt, die immer dieselbe Zahlenfolge 
ergibt, falls diese mit RND(1) erzeugt werden. RND(O) 
ergibt jedesmal neue Folgen. 


Zur Erzeugung von Zufallszahlen im Intervall zwi- 
schen N1 und N2 kann man die folgende Formel verwenden: 
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R = INT(ÜRND(1)*N2)+NI © 


SGN (X) Signum-Funktion 


Vorzeichen-Funktion,. Der Wert dieser Funktion ist 
1, wenn X positiv, 0, wenn X=0O und -1, wenn X negativ 
ist. 

SIN(X) Sinus | 

Ergibt den Sinus des Winkels X, der im Bogenmaß 


anzugeben ist. 


SOR(X) Quadratwurzel 
Ergibt die Quadratwurzel von X, wobei X größer 
oder gleich O sein muß. 


TAN(X) Tangens 


Ergibt den Tangens des Winkels X, der im Bogenmaß 
anzugeben ist. 
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Textverarbeitung mit String-Funktionen 


Strings (oder Zeichenketten) sind uns schon in 
PRINT- oder INPUT-Anweisungen begegnet. Sie dienten da- 
zu, eine Ein- oder Ausgabe zu erläutern. 


Ein String kann - ähnlich wie eine Zahl - auch 
einer Variablen zugewiesen werden. Stringvariablen un- 
terscheiden sich von Variablen, in denen Zahlen ge- 
speichert werden können dadurch, daß an den Variablen- 
namen ein $-Zeichen angehängt ist. 


Die Möglichkeiten der String-Verarbeitung in BASIC 
reichen aber sehr viel weiter. Es gibt eine ganze Reihe 
von speziellen Funktionen, die eigentlich alle mög- 
lichen Operationen mit Zeichenketten durchführen 
können, die man sich denken kann. Um einige Versuche 
mit diesen Funktionen anzustellen, gehen wir einmal von 
dem folgenden String aus: 


A$ = "GUTEN TAG!" 


Aus wieviel Zeichen besteht dieser String? Halt, 
Sie brauchen nicht selbst zu zählen! Das macht die 
Funktion LEN: 


PRINT LEN(A$) 
10 


Die LEN-Funktion kann genauso die Länge eines 
direkt angegebenen Strings berechnen, der natürlich in 
Anführungszeichen stehen muß: | 


PRINT LEN("TAG!") 
4 


Sollten Sie den ASCII-Code des ersten Zeichens 
eines Strings benötigen, so steht dafür die Funktion 
ASC zur Verfügung: 


PRINT ASC("TAG!") 
84 


Das Gegenstück zu dieser Funktion liefert das 
Zeichen, das zu einem gegebenen ASCII-Wert gehört: 


PRINT CHR$(84) 
T 
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Jetzt wollen wir einmal unseren oben definierten 
String A$ "zerpflücken" und aus dem "GUTEN TAG!" einen 
"GUTEN ABEND!" machen. Dazu nehmen wir die ersten sechs 
Zeichen von A$ und hängen daran den String "ABEND". Ach 
ja, das Ausrufungszeichen haben wir vergessen. Das ent- 
nehmen wir wieder aus dem String A$, also: 


PRINT LEFT$(A$,6) ; "ABEND" ;RIGHT$(A$, 1) 
GUTEN ABEND! 


Die Funktionen LEFT$ und RIGHT$ liefern also den 
linken bzw. rechten Teil des Strings, der als Argument 
der Funktion verwendet wird. Die als zweites Argument 
angegebene Zahl bestimmt dabei die Länge der Teil- 
strings. 


Die folgenden Programmzeilen servieren unseren 
Gruß "scheibchenweise'": 


18 A$="GUTEN TAG!" 
20 FOR N=1 TD LEN(A$) 
38 PRINT LEFT$(A$,N) 
48 NEXT N 


G 

GU 

GUT 

GUTE 

GUTEN 
GUTEN 
GUTEN T 
GUTEN TA 
GUTEN TAG 
GUTEN TAG! 


Von links und rechts können wir also schon Teile 
eines Strings abschneiden. Die Funktion MID$ ermöglicht 


es, einen beliebigen Teilstring aus einer Zeichenkette 
"herauszuschneiden". Um die Zeichenfolge "TAG" aus 
unserem String A$ zu erhalten, müssen von der 7. Posi- 


tion an 3 Zeichen entnommen werden: 


PRINT MID$(A$,7,3) 
TAG 
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Strings lassen sich auch miteinander verknüpfen. 
Als Operationszeichen dafür dient das "+"-Zeichen. Das 
folgende Programm veranschaulicht dies: 


18 A$="GUTEN TAG!" 

28 INPUT"WIE HEISSEN SIE";N$ 
30 B$=A$+N$ 

40 PRINT B$ 


Manchmal ist es notwendig, eine Zahl in einen 
String umzuwandeln, z.B. für Formatierungszwecke. Dies 
geschieht mit der Funktion STR$: 


PI$ = STR$(3.1415) 
PRINT PI$, LEFT$(PI$,4) 
3.1415 3.14 


Das Gegenstück dazu ist die Umwandlung eines 
Strings in eine Zahl. Das geht natürlich nur dann, wenn 
der String aus Ziffern besteht. Die Funktion VAL durch- 
sucht den gegebenen String vom ersten linken Zeichen an 
n ach rechts, bis das erste Zeichen gefunden wird, das 
keine Zahl darstellen kann. Die so ermittelte Zeichen- 
folge wird in eine Zahl umgewandelt: 


PRINT VAL('"O007BOND") 
7 
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Sonstige Funktionen 


FRE(X) Freier Speicherplatz 

Die Anweisung PRINT FRE(X) ergibt die Anzahl 
freier Bytes im Speicher. Dabei spielt der Wert von X 
keine Rolle. 


SY8.:% Aufruf eines Maschinenprogramms 

Diese Funktion bewirkt den Aufruf eines Maschinen- 
programms, das an der Adresse X beginnt. Der Wert von X 
kann eine Zahl zwischen O und 65535 sein. 


Als Beispiel kann der Aufruf SYS 64738 dienen. Mit 
diesem Befehl wird der Rechner in den Grundzustand 
versetzt, in dem er sich auch nach dem Einschalten 
befindet. Aber Vorsicht! Der Befehl sollte nur benutzt 
werden, wenn der Computer wirklich ausgeschaltet werden 
sollte, da das Programm und die Variablenwerte verloren 
gehen. 


USR(X) Aufruf eines Maschinenprogramns 

Diese Funktion ruft ein Maschinenprogramm auf, 
dessen Startadresse in den Speicherplätzen 785 und 786 
stehen muß. Der Parameter X wird an das Maschinen- 
programm übergeben, das selbst einen Wert als Ergebnis 
an das BASIC-Programm zurückgibt. 


WAIT X,Y,Z 
Diese Funktion dient dazu, ein Programm solange 
anzuhalten, bis eine bestimmte Speicheradresse einen 


bestimmten Wert angenommen hat. Nach WAIT folgt eine 
Speicheradresse (X) und bis zu zwei Variablen. 


Der Inhalt der angegebenen Adresse wird zuerst mit 
dem exklusiven OR mit dem dritten Wert Z verknüpft 
(sofern dieser angegeben ist). Anschließend findet eine 
AND-Verknüpfung mit dem zweiten Wert Y statt. Ist das 
Ergebnis Null, wird der Inhalt der Adresse weiterhin 
überprüft. Ist das Ergebnis nicht Null, wird das Pro- 
gramm mit der nächsten Anweisung fortgesetzt. 


62 


Logische Operationen 


Ist Ihnen schon aufgefallen, daß das Gleichheits- 
zeichen für zwei ganz verschiedene Operationen benutzt 
wird? In einer LET-Anweisung bewirkt es die Zuweisung 
eines Wertes zu einer Variablen, in einer IF-Anweisung 
Jedoch dient es dazu, einen Vergleich zwischen zwei 
Ausdrücken darzustellen, 


Im zweiten Fall wird also keine Rechen- sondern 
eine logische Operation vollzogen. Es gibt noch eine 
Anzahl weiterer logischer Vergleichs-Operatoren, die 


wir zum Teil auch schon benutzt haben: 
| 


= gleich, 

> ungleich, 

< kleiner als, 
> größer als, 


<= kleiner oder gleich, 
>= größer oder gleich. 
Außerdem ist es aber auch möglich, einzelne Werte 


oder ganze Ausdrücke mit Hilfe von logischen Operatoren 
so zu verknüpfen, daß das Ergebnis ein logischer Wert 
ist, der 'Wahrheitswert' der gesamten Verknüpfung. Es 
handelt sich dabei um die logischen Operatoren NOT, AND 
und OR (also: NICHT, UND und ODER). 


Bevor Sie Ausdrücke mit diesen logischen Operato- 
ren verknüpfen, müssen Sie wissen, daß es außer Real-, 
Integer- und Stringvariablen noch einen weiteren Varia- 
blentyp gibt, der sich allerdings äußerlich nicht von 
den Real-Variablen unterscheidet. Diese 'logischen' 
Variablen nehmen als Ergebnis einer logischen Operation 
nur zwei Werte an: O oder -1, wobei O für den logischen 
Wert 'falsch' und -1 für 'wahr' steht. (Einschränkend 
muß gesagt werden, daß die logischen Variablen in BASIC 
keinen ganz selbständigen Variablentyp darstellen, da 
diese Variablen im selben Programm auch als normale 
Real-Variablen benutzt werden können.) 


Betrachten wir dazu ein Beispiel: 
PRINT 2 = 2 
-1 
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d.h. die 'Aussage', daß 2 = 2 ist, hat den Wahrheits- 
wert -1, ist also wahr. Dagegen ergibt 


PRINT 2 = 3 
e) 


d.h. diese Aussage ist falsch. 


Da es nur die beiden Wahrheitswerte 'wahr' und 
'falsch' (bzw. O und -1) gibt, erhält man bei der 
Verneinung oder Negation einer Aussage den jeweils 
anderen Wert, In BASIC wird die Negation mit NOT durch- 
geführt: 


PRINT NOT(2 = 3) 
1 
Was passiert nun, wenn zwei Ausdrücke mit AND oder 


OR verknüpft werden? Dazu wieder ein Beispiel: 


PRINT 2=2 AND 2=3 
©) 


Hier wurde also eine wahre mit einer falschen 
Aussage durch AND verknüpft. Das Ergebnis lautet, daß 


diese Verknüpfung falsch ist, d.h. es ist nicht wahr, 
daß beide Aussagen richtig sind. Die AND-Verknüpfung 
liefert nur dann den Wert -1 (also 'wahr'), wenn beide 


Teilaussagen wahr sind. 
Verknüpfen Sie nun die beiden Ausdrücke mit OR: 


PRINT 2=2 OR 2=3 
en 


Obwohl ein Ausdruck falsch ist, hat das Ergebnis 
den Wert 'wahr'. Die OR-Verknüpfung ergibt nur dann den 
wert O (also 'falsch'), wenn beide Teilaussagen falsch 
sind. 


Die Ergebnisse der Verknüpfung zweier Ausdrücke A 
und B mit den logischen Operatoren NOT, AND und OR für 
die möglichen Kombinationen der beiden Ausdrücke sind 
in der folgenden Tabelle dargestellt: 
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A NOT A A _B A AND B A B A OR B 


= ) 1. = =. 1 24 27 
Oo =4 -1.0 6) 10  .- 
One oO Oele ©, 
o 0 6) 04 0 -o 


Sollen insgesamt drei Ausdrücke bzw. Variablen 
miteinander verknüpft werden, so ergeben sich 273 = 8 
mögliche Kombinationen; bei 4 Variablen sind es 24 = 
16; und allgemein sind es bei N: 2TN Kombinationen. 
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4 
Speichern & ‘Laden 


Speicherr und Lader vor Programmen urd 


Dater auf Kassette wurd Diskette 


spe T.che en von Programmen 


Mit der Anweisung SAVE kann ein Programm, das sich 
im Arbeitsspeicher des Computers befindet, auf einem 
externen Speichermedium gespeichert werden. Je nachdem, 
ob das Programm auf einer Magnetband- 
SAVE Kassette oder auf einer Diskette aufge- 
zeichnet werden soll, unterscheiden sich 
die zu dem Befehl SAVE notwendigen Angaben voneinan- 
der: während zum Speichern eines Programmes auf dem 
Kasssetten-Recorder lediglich der - frei gewählte - 
Name des Programmes (der aus bis zu 16 Zeichen bestehen 
darf) in Anführungszeichen angegeben werden muß, ist 
zum Speichern auf einer Diskette zusätzlich die Angabe 
der Gerätenummer 8 erforderlich. (Das Band hat übrigens 
die Gerätenummer 1, die jedoch nicht angegeben werden 
muß, da sie vom Rechner als Standardeinstellung ange- 
nommen wird. Beim Speichern auf Band darf sogar der 
Programm-Name fehlen. Dies ist jedoch nicht unbedingt 
empfehlenswert.) 


Die verschiedenen Möglichkeiten der Verwendung der 
SAVE-Anweisung sind in der folgenden Übersicht zusam- 
mengestellt: 


SAVE speichert ein Programm ohne Namen 
auf Band, 
SAVE'"NAME'" speichert das Programm unter dem 
Namen NAME auf Band, 
SAVE A$ speichert das Programm mit dem 
Namen auf Band, den die Variable A$ 
enthält, 


SAVE"NAME",8 speichert das Programm unter dem 
Namen NAME auf Diskette. 
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Brad ER von a SE oe u Se ee = 


Die Anweisung zum Laden eines Programmes vom Band 

oder von der Diskette in den Computer heißt LOAD und 

wird ähnlich benutzt wie die Anweisung 

LOATL sAavVE. Sie dient dazu, Programme und Daten 

von der Kassette oder Diskette in den 
Arbeitsspeicher des Computers zu übertragen. 


Die verschiedenen Möglichkeiten der Verwendung der 
LOAD-Anweisung sind im folgenden zusammengestellt: 


LOAD liest das nächste Programm von der 
Kassette, 


LOAD'"NAME'" sucht auf der Kassette das Programm 
mit dem Namen NAME und lädt es in 
den Arbeitsspeicher, sofern es ge- 
funden wurde, 


LOAD "A$'" lädt das Programm mit dem Namen, 
den die Variable A$ enthält, 


LOAD'"'NAME",8 lädt das Programm mit dem Namen 
NAME von der Diskette, 


KOADTAS" „75,7 lädt ein Maschinenspracheprogramm 
mit dem in A$ enthaltenen Namen vom 
Band. 


EOADTAS" 58.57 lädt ein Maschinenspracheprogramm 
mit dem in A$ enthaltenen Namen von 
der Diskette. 


In den beiden letzten Fällen sollte ein NEW-Befehl 
nach dem Einladen gegeben werden. Andernfalls würde der 
Versuch, danach ein BASIC-Programm zu starten, zum 
Abbruch mit der Fehlermeldung OUT OF MEMORY führen! 


Mit der Anweisung VERIFY kann überprüft werden, ob 
ein Programm richtig abgespeichert wurde. Dazu wird das 
angegebene Programm mit dem im Arbeitsspeicher 

stehenden Programm verglichen. Ebenso 

VERIFY wie bei SAVE und LOAD muß auch hier der 

Programmname und eventuell die Geräte- 

nummer angegeben werden. Die folgenden Fälle sind also 
möglich: 
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VERIFY sucht das nächste Programm auf der 
Kassette und veraleicht es mit dem 
Programm im Speicher, 


VERIFY'"'NAME' sucht das Programm "NAME" auf der 
Kassette und vergleicht es mit dem 
Programm im Speicher, 


VERIFY"NAME",8 prüft das Programm "NAME" auf der 
Diskette. 


Es empfiehlt sich, die VERIFY-Anweisung nach dem 
Speichern eines jeden Programmes zu benutzen, um sicher 
zu gehen, daß das Programm ohne Fehler auf der Kassette 
bzw. Diskette aufgezeichnet worden ist. 


Speichern von Daten: Kassettenbetrieb 


Eine der häufigsten Anwendungen für einen Computer 
ist sicherlich die Verwaltung von Daten. Zur Speiche- 
rung stehen - wie bei der Programmspeicherung - wieder 
die Kassette oder die Diskette zur Verfügung. Dadurch 
ist es möglich, wesentlich mehr an Daten abzuspeichern, 
als im Speicher des Computers stehen können. 


Eine bestimmte Menge von zusammengehörenden Daten, 
die durch einen Namen eindeutig identifizierbar sind, 
nennt man Datei oder File (engl.). Dateien oder Files 

werden mit der Anweisung OPEN erzeugt (bzw. 

OPEN 'geöffnet', falls sie schon existieren). 

Zusätzlich muß der Computer noch wissen, 

daß die Daten auf einen externen Speicher geschrieben 

werden sollen. Dazu dient ein spezieller PRINT-Befenhl. 

An einigen Beispielen werden wir diese Möglichkeiten 
erläutern. 


Zur Eröffnung einer Datei auf der Kassette kann 
z.B. die folgende Anweisung dienen: 
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OPEN X,1,1, "NAME" 


Dabei ist X die logische Datei- oder Filenummer 
und kann einen Wert von O bis 255 annehmen. 


1 ist die Gerätenummer; in diesem Fall die des 
Kassettenrecorders. 


Die zweite 1 gibt an, daß Daten abgespeichert 
werden sollen. 


Der Name darf wieder aus bis zu 16 Zeichen be- 
stehen. 


Nachdem mit der DOPEN-Anweisung die Datei NAME 
eingerichtet worden ist, können mit 
PRINT# einer speziellen Form der PRINT- 
Anweisung, nämlich mit PRINT# Daten 

auf der Kassette gespeichert werden: 


PRINT#x 


wobei X wieder die logische Filenummer ist. 


Zur Verdeutlichung haben wir ein kleines Programm 
geschrieben, das eine beliebige Anzahl von Zahlen ab- 
speichern kann. (Die inversen Grafikzeichen dienen zur 
Cursorsteuerung. Sie beeinflussen nur die Bildschirm- 
ausgabe und können hier weggelassen werden. Näheres 
dazu s. Kapitel 9.) 


18 REM. „nu ununonnnnnonnununn. «ABSPEICHERN VON DATEN AUF CASSETTE 
15 PRINT"IIN A ABSPEICHERN VON DATEN AUF CASSETTE " 

26 PRINT"MIN NAME DES DATENFILES"5: INPUT DF$ 

25 PRINT"N WIEVIELE DATEN SOLLEN GESPEICHERT" 

3@ INPUT" WERDEN"5N 

48 DIM A{N) 

A5 REM. oneunuunnunnenunnnnnnnnunnnnun nun nn nun n „EINGEBEN DER DATEN 
3® FOR I=1 TON 

&8 PRINT"MM WERT"5I;=2INPUT A(I) 

70 NEXT I 

80 PRINT" SCASSETTE EINGELEGT? (J/NIM" 

96 GET C$: IF C$="" OR C$>"J" THEN GOTO 98 
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95 REMenennnnnnnnnnnnunnnnennennnneennunen. „ABSPEICHERN DER DATEN 
188 OPEN1,1,1,DF$ 

195 PRINT#1,N 

118 FOR I=1 TON 

120 PRINT#1,A(I) 

130 NEXT I 

140 CLOSE 1 

150 END 


READY. 


Nun die Programmerklärung: 


In Zeile 20 wird nach dem Namen des Datenfiles 
gefragt, und in Zeile 25 wird gefragt, wieviele Daten 
(Zahlen) eingegeben werden sollen. 


In Zeile 40 wird die indizierte Variable A ent- 
sprechend der Anzahl der einzugebenden Werte dimen- 
sioniert. 


In den Zeilen 50 - 70 werden die Daten eingegeben. 


Die Zeilen 80 und 90 sollen Sie daran erinnern, 
ein Band einzulegen. 


In Zeile 100 wird das Datenfile geöffnet, und iin 
den Zeilen 105 bis 130 werden die Daten auf das Band 
übertragen. 


Zeile 140 enthält das Gegerstück zur Anweisung 
OPEN, nämlich 
CLOSE 


womit die Datei wieder 'geschlossen' wird. 
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Einlesen von Daten: Kassettenbetrieb 

Das Einlesen von Daten bewirkt eine modifizierte 
INPUT-Anweisung. Sie lautet: 

INPUT# x 

wobei X wieder die logische Filenummer ist. 

Dazu muß die OPEN-Anweisung folgendermaßen lauten: 

OPEN X,1,0, "NAME" 

Im Unterschied zur OPEN-Anweisung zum Speichern 
muß hier als dritte Zahl eine O stehen. Damit wird dem 


Computer mitgeteilt, daß er Daten einlesen soll. 


Auch die INPUT#-Anweisung laßt sich wieder am 
besten durch ein kleines Programmbeispiel erklären: 


LOUREN Seesen DATEN LESEN VON CASSETTE 
28 PRINT" IH 3 DATEN LESEN VON CASSETTE 2 

3s@ PRINT"AIM WIE HEISST DAS DATENFILE"3 =: INPUT DF$ 

88 PRINT"EM 3 CASSETTE EINGELEGT? (J/N)" 


98 GET C$ 
188 IF C$="" OR C$2>"J" THEN GOTO 96 
110 REN. ana EINLESEN DER WERTE 


i26 OFEN 1,1,8,DF$ 

150 INPUT#1,N 

148 DIM AN) 

156 FOR I=1 TON 

16@ INPUT#1,ACI) 

170 NEXT I 

188 CLOSE 1 

198 REM...... rn .unnunnnennen AUSGABE AUF DEM BILDSCHIRM 
288 FOR I=1 TON 

218 PRINTIS" N. WERT ="5A(I) 
220 NEXT I 

2530 END 


READY. 
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Nun wieder die Erläuterung: 


In Zeile 30 wird nach dem Namen der einzulesenden 
Datei gefragt. 


Die Zeilen 80 bis 100 dienen, wie gehabt, zur 
Erinnerung, das richtige Band einzulegen. 


In Zeile 120 wird das Datenfile zum Lesen ge- 
öffnet. 


In Zeile 130 wird die Anzahl der abgespeicherten 
Daten eingelesen, und in den Zeilen 150 bis 170 werden 
die Daten eingelesen. 


In Zeile 180 wird das Datenfile geschlossen, und 


in den Zeilen 200 - 220 werden die Daten auf dem Bild- 
schirm ausgegeben. 


Auch die GET-Anweisung existiert in einer modifi- 


zierten Version als GET#. Dadurch können aus einer 
Datei alle Zeichen einzein nacheinander 

5ET# gelesen werden. Damit können auch Steuer- 
und Kontrollzeichen, die z.B. als Trenn- 


zeichen für die abgespeicherten Werte notwendig sind, 
erfaßt werden. 


Speichern von Daten: Diskettenbetrieb 


Der wesentliche Unterschied beim Speichern von 
Daten auf die Diskette gegenüber dem Kassettenbetrieb 
besteht darin, daß die OPEN-Anweisung einige zusätz- 
liche Angaben enthält. Betrachten Sie dazu das folgende 
Programm: 


18 REM... -osuoonnonancn« “ou... „ABSPEICHERN VON DATEN AUF DISKETTE 
28 PRINT"M 3 SPEICHERN AUF DISKETTE E 

38 PRINT"MM WIE SOLL DAS DATENFILE HEISSEN"; : INPUT DF$ 

35 PRINT"Me WIEVIELE DATEN SOLLEN GESPEICHERT” 

40 PRINT” WERDEN";: INPUT N 
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AS REMeennannenuunnnnnnnnnunnnununnnnunnennennn una nn DATENEINGABE 
59 DIM AN) 

55 FOR I=1 TON 

68 PRINT"M WERT"5I5: INPUT A(I) 

65 NEXT I 

76 PRINT"M 3 DISKETTE EINGELEGT (J/N)? " 

75 GET ($ 

80 IF C$="" OR C$<>"J" THEN GOTO 75 

BS REMennnnnunaeneunnnennnnnennennnnnnnenenenennnn DATEN SPEICHERN 
98 OPEN 13,8, 2,DF$+",5,W" 

95 PRINT#13,N 

188 FOR I=1 TON 

185 PRINT#13,A(I) 

11@ NEXT I 

115 CLOSE13 

128 END 


READY. 
Zeile 90 enthält die geänderte OPEN-Anweisung: 
90 OPEN 13,8,2,DF$+",S,w" 


Dabei bedeuten: 


13 logische Filenummer, 

8 Geräteadresse, 

2 hier kann eine Zahl zwischen 2 und 14 stehen, 
DF$ Filename, 

S sequentiell abspeichern, 


W WRITE-(Schreib-)Anweisung. 


Einlesen von Daten: Diskettenbetrieb 


Das Einlesen von Daten von der Diskette in den 
Computer erfolgt, bis auf eine geänderte OPEN- 
Anweisung, ebenso wie beim Kassettenbetrieb. Die OPEN- 
Anweisung für die Diskette unterscheidet sich von der 
zum Speichern verwendeten nur durch die Angabe R für 
READ (Lesen): 


OPEN 13,8,2,DF$+",S,R" 
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Er Ta © Ne Datenverwaltung 
a uf eu; pbiskertte 


Im nächsten Beispiel stellen wir Ihnen eine ein- 
fache Anwendung des bisher besprochenen vor. Wir grei- 
fen dazu das Telefonnummernprogramm aus Kapitel 3 wie- 
der auf, und ändern es so um, daß dieses Verzeichnis 
jetzt auf einer Diskette abgespeichert werden kann. 


Die Daten stehen dann also nicht mehr im Programm 
selbst, sondern als sequentielles Datenfile auf der 
Diskette. Bei solchen Files ist es möglich, weitere 
Daten an die schon vorhandenen einfach anzuhängen. 


Diese Art der Datenspeicherung ist allerdings für 
eine solche Anwendung nur bei wenigen Daten sinnvoll, 
da Sie bei sequentiellen Dateien nicht direkt z.B. auf 
den 50. Datensatz zugreifen können (zum Lesen oder 
Ändern), sondern Sie immer alle Werte von Anfang an 
nacheinander lesen lassen müssen. (Im Unterschied dazu 
kann man bei einer Datei mit "direktem Zugriff' - einer 
sog. "Random Acces'-Datei - direkt auf einen beliebigen 
Datensatz zugreifen, ohne die ganze Datei durchlesen zu 
müssen). 


In unserem Beispielprogramm ist vorgesehen, Name, 
Vorname, Vorwahl und Rufnummer einer Person abzuspei- 
chern. Sie brauchen nun aber nicht Ihr ganzes privates 
Telefonverzeichnis in einem Arbeitsgang einzugeben, 
sondern können es später nach Belieben vervollständi- 
gen. Das wird ermöglicht durch den Befehl: 


OPEN 1,8,2,"TELEFON,S,A'" 


Bis auf das "A' ist dies der schon bekannte OPEN- 
Befehl zum Anlegen bzw. Öffnen einer Datei. "A" besagt 
nun, daß hier keine neue Datei eröffnet werden soll, 
sondern Daten an ein bestehendes File (hier mit dem 
Namen "TELEFON") angehängt werden sollen. 
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REN ans en «...EINFACHES TELEFONVERZEICHNIS 
PRINT "IM 3 EINFACHES TELEFONVERZEICHNIS " 


PRINT "ii WOLLEN SIE EIN NEUES VERZEICHNIS” 

PRINT ” ANLEGEN ZW „" 

FRINT ” EIN SCHON BESTEHENDES ERWEITERN 3 A m" 
PRINT " ODER SICH EINE TELEFONNUMMER SUCHEN" 

PRINT ” LASSEN #35 ® 7?" 

PRINT "Mi BITTE DIE ENTSPRECHENDE TASTE DRUECKEN!" 


GET 7% 
IF 1$="" OR (Z$<>"A" AND Z$<>"W" AND Z$<>"S") THEN G0TO 70 

IF 1$="S" THEN G0TD 250 
RE ME ea ee een en erde EINGABE DER DATEN 
DIM N$(100) ,V$ (100) ,VW$ (100) ,RN(10®) 

PRINT "IE BEGINNEN SIE NUN MIT DER EINGABE." 

PRINT "= (GEBEN SIE FUER DEN NAMEN UND VORNAMEN" 

PRINT " °x,%” EIN, WIRD DER EINGABETEIL BEEN-" 

PRINT " DET UND DIE DATEN WERDEN GESPEICHERT.)" 

PRINT 

1=0 


3 FRINT: INPUT " NAME, VORNAME”3N$S(TI,V$(D 


IF N$(I)="*" THEN GOTO 168 

INPUT " VORWAHL, RUFNUMMER"SVW$CI),RNCI) 

I=I+1: 60TO 130 

REN ee ee ABSPEICHERN AUF DISKETTE 
PRINT "sl 3 IST EINE DISKETTE EINGELEGT ? (J/N) " 
GET D$: IF D$="" OR D$<>"J" THEN GOTO 188 

OPEN 1,8, 2, "TELEFON, S, "+Z% 

FOR J=® TO I-1 

PRINT#1,N$ (J) 

PRINT#1,V$ (J) 

PRINT#1,VW$ (J) 

PRINT#1,RN(J) 


>8 NEXT J 
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235 CLOSE 1 

236 END 

SEO een ne Wer SUCHEN EINER TELEFONNUMMER 
268 PRINT "Is WESSEN TELEFONNUMMER SUCHEN SIE?" 

278 PRINT: INPUT " NAME, VORNAME” 3 GN$, GV$ 

28@ PRINT "" 3 IST DIE DISKETTE MIT DEM TELEFON-" 

298 PRINT " 3 VERZEICHNIS EINGELEST? (J/N " 

366 GET D$: IF D$="" OR D$<{>"J" THEN G0TO 306 

218 OPEN1,8,2, "TELEFON, S5,R" 

329 INPUT#1,N$,V$, VW$,RN 

338 IF N$=GN$ AND V$=GV$ THEN GOTO 60 

348 IF ST=64 THEN 60T0 398 

355 G0TD 329 

359 CLOSE 1 

278 FRINT "wi DIE GESUCHTE TELEFONNUMMER IST:" 

388 PRINT "N "3VW$} "/"3RIGHT$(STR$ (RN) „LEN(STR$ (RND)-1): G0TO 486 
398 CLOSE 1: PRINT "He BESUCHTER NAME NICHT VORHANDEN!" 

488 PRINT "sk BRAUCHEN SIE NOCH EINE NUMMER? (J/N)" 

418 GET W$: IF W$="" OR (WSCH"]" AND W$CH"N") THEN GOTD 410 
428 IF W$="J" THEN GDTO 256 

430 END 


READY. 
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Zum besseren Verständnis folgt eine zeilenweise 
Programmerklärung: 


Zeile 20 - 65 
Bedienungsanleitung als Bildschirmausgabe. 


Zeile 70 - 80 
Hier verzweigt das Programm entsprechend Ihrer 
wahl. 


Zeile 95 

In der DIM-Anweisung wird die maximale Zahl der 
Daten, die auf einmal eingegeben werden können, fest- 
gelegt. 


Zeile 100 - 120 
Erläuternder Text für die Eingabe. 


Zeile 125 - 150 
Falls die Bedingung zum Beenden der Eingabe nicht 
erfüllt ist, werden die Indizes erhöht. 


Zeile 170 - 180 Ä 
Vor dem Abspeichern muß natürlich eine Diskette im 
Laufwerk sein! 


Zeile 190 
Die Datei mit dem Namen "TELEFON" wird zum Schrei- 
ben oder Anfügen von Daten geöffnet. 


Zeile 200 - 230 
Die eingegebenen Daten werden auf die Diskette 
übertragen. 


Zeile 235 
Die Datei wird wieder geschlossen. 


Zeile 270 | 

Hier beginnt der Suchteil des Programms. Zunächst 
muß der Name des gewünschten Teilnehmers eingegeben 
werden. 


Zeile 310 - 390 

Die Datei wird geöffnet und die Daten werden ge- 
lesen. Falls der gesuchte Name gefunden wird, wird die 
Datei wieder geschlossen (Zeile 360) und die Telefon- 
nummer ausgegeben (Zeile 370 - 380). 
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wird der Name nicht gefunden, so wird überprüft, 
ob das Ende der Datei erreicht wurde (Zeile 340). Ist 
dies nicht der Fall, wird der nächste Datensatz gelesen 
und verglichen usw. 


Zeile 400 
Hier können Sie angeben, ob Sie noch weitere Tele- 
fonnummern suchen. 


Die Variable ST aus Zeile 340 soll noch näher 
erläutert werden. Diese Variable besitzt eine festge- 
legte Funktion (genauso wie TI und TI$). Sie kann also 
nicht beliebig verwendet werden! 


Der Commodore 64 benutzt die Variable ST für Ein- 
gabe- und Ausgabekontrollen. Der Wert von ST ändert 
sich z.B., wenn Fehler beim Kassetten- oder Disketten- 
betrieb auftreten. 


In unserem Beispiel wird ST gebraucht, um festzu- 
stellen, ob das Ende der Datei erreicht wurde: dies ist 
der Fall, wenn ST den Wert 64 annimmt. 


Sollten Ihnen Einzelheiten dieses Programms noch 
unklar sein, arbeiten Sie am besten noch einmal die 
entsprechenden BASIC-Anweisungen durch. 
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°Speiche rbelegung 


Einführung in die Speicherorgarisatior: 


des Commodore 54 


Der Commodore 64 besitzt eine Speicherkapazität 
von 64 K. Da IK = 1 Kilobyte = 1024 Speicherplätze 
bedeutet, sind das 64 * 1024 = 65536 Speicherplätze. In 
den weiteren Kapiteln werden wir häufig mit diesen 
Speicherplätzen zu tun haben. Deshalb werden wir uns im 
folgenden ausführlich mit der Organisation dieser 
Speicherplätze beschäftigen (s. auch Anhang). 


Der Speicher eines Computers ist in mehrere Blöcke 
aufgeteilt, die verschiedene Funktionen besitzen. 


Der RAM-Speicher 


Der RAM-Speicher (engl. random access memory; d.h, 
Speicher mit wahlfreiem Zugriff) ist der sogenannte 
Schreib-Lese-Speicher. Hier werden Programme, Daten, 
Bildschirminhalte, Farbinformationen usw. gespeichert 
und können zur Verarbeitung wieder abgerufen werden, 


All diese Informationen stehen jedoch nur solange 
zur Verfügung, wie der Computer in Betrieb ist, d.h. 
sie gehen beim Ausschalten verloren. 


Der Commodore 64 besitzt verschiedene RAN- 
Speicher, die für die unterschiedlichsten Aufgaben 
gebraucht werden. Einer der für den Anwender wichtig- 
sten Speicherbereiche ist der BASIC-Programm-Speicher, 
dessen Adressbereich von 2048 bis 40960 reicht. Der 
Benutzer hat also 38912 (= 40960 - 2048) Speicherplätze 
(38 K) für die BASIC-Programmierung zur Verfügung. 


Der ROM-Speicher 


Der ROM-Speicher (engl. read only memory; etwa: 
Speicher, aus dem nur gelesen werden kann) ist, im 
Gegensatz zum RAM-Speicher ein Permanentspeicher, d.h. 
daß der Speicherinhalt beim Ausschalten des Rechners 
erhalten bleibt. 
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Der ROM-Speicher kann nicht verändert werden. 
Somit ist es ausgeschlossen, daß der Anwender etwa 
versehentlich wichtige Speicherinhalte löscht, die den 
Rechner möglicherweise unprogrammierbar machen würden. 


Der ROM-Speicher belegt die Adressen von 40960 bis 
49152, besteht also aus 8 .K. Er enthält die BASIC- 
Anweisungen des Commodore 64. 


ie Anweisungen PO K.E und 
EEK 


Nachdem wir die verschiedenen Speicher des Com- 
puters kurz vorgestellt haben, soll im folgenden das 
Verfahren dargestellt werden, mit dessen 
POKE Hilfe man bestimmte Werte direkt in einen 
Speicher schreiben kann. Dies geschieht mit 

der POKE-Anweisung. Sie lautet allgemein: 


POKE A,B 


Hierbei bezeichnet A einen Wert von O bis 65535, 
die Adresse eines Speicherplatzes. B bezeichnet einen 
Wert von O bis 255, der in den Speicher geschrieben 
werden soll. 


Geben Sie nun die folgende Anweisung ein: 
POKE 53281,7 


Damit wurde in die Speicherzelle 53281, die die 
Hintergrundfarbe kontrolliert, der Wert 7 - für die 
Farbe Gelb - geschrieben. 


Gewissermaßen das Gegenstück zur POKE-Anweisung 

stellt die Anweisung PEEK dar. Damit ist es möglich, 

den Inhalt einer bestimmten Speicheradresse 

PEEK abzufragen. Um zu erfahren, welcher Wert 

sich in der Speicherzelle A befindet, kann 

man die PEEK-Anweisung in Verbindung mit PRINT ver- 
wenden: 


PRINT PEEK(A) 
Das Ergebnis dieser Anweisung ist der augenblick- 


liche Inhalt der Speicherzelle A, wobei A wieder eine 
Speicheradresse zwischen O und 65535 sein kann. 
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rm - und Farb- 


Der Bildschirmspeicher 


Der Bildschirmspeicher ist der Speicherbereich, in 
dem die Zeichen stehen, die gerade auf dem Bildschirm 
zu sehen sind. 


Der Bildschirmspeicher beginnt bei der Adresse 
1024 und kann insgesamt 1000 Zeichen beinhalten. Dies 
entspricht der Aufteilung des Bildschirms in >25 Zeilen 
zu je 40 Zeichen. Die folgende Abbildung verdeutlicht 
die Aufteilung dieses Speicherbereichs: 


EENEREEEERENEEEERBESEREEEEEEENEEEE 
nl SEENNEUEESBERREBRRERBE 44 EEEBBERER EEEE 
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Der Farbspeicher 


Der Adressbereich des Farbspeichers beginnt bei 
85296. Ebenso wie der Bildschirmspeicher nimmt auch der 
Farbspeicher 1000 Speicherplätze ein: einen für jede 
Bildschirmposition. Die Aufteilung dieses Speichers ist 
der folgenden Abbildung zu entnehmen. 
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Zur Veranschaulichung der bisherigen Ausführungen 
soll das folgende Programm-Beispiel dienen: 


Cu; =, EEG BILDSCHIRM UND FARBSPEICHER 
28 PRINT"7" 

38 FOR I= 1024 TO 1063 

48 POKE 1,94 

5@ NEXT I 

&8 FOR I= 552964 TO 55335 

78 POKE 1,7 

BO NEXT I 


READY. 


Mit diesem Programm wird die oberste Bildschirm- 
reihe mit einem in gelber Farbe erscheinenden Grafik- 
zeichen ausgefüllt. 


Die Zeilen 30 - 40 geben an, welches Zeichen an 
welchen Bildschirmplätzen erscheinen soll. In unserem 
Beispiel soll also das Grafikzeichen mit der Code-Nr. 
94 in die erste Bilaschirmzeile - d.h. in die Speicher- 
plätze von 1024 bis 1063 - geschrieben werden. 


In den Programmzeilen 60 - 80 stehen die Adressen 
des Farbspeichers, die denen des Bildschirmspeichers 
entsprechen, also von 55296 bis 55335. 


In Zeile 70 wird der Codewert für die gewünschte 
Farbe angegeben, also 7 für die Farbe Gelb. 


Was passiert, wenn Sie die Zeilen 60 bis 80 weg- 
lassen? In dem Falle ist zwar das Zeichen in den Bild- 
schirmspeicher gebracht worden; es erscheint jedoch in 
der Hintergrundfarbe und ist damit nicht sichtbar! Dies 
verdeutlicht, daß zu der Angabe, welches Zeichen er- 
scheinen soll, auch die Angabe einer Farbe erforderlich 
ist. 
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Vordergrund - und ze Se CE EEE - = se 
grundFfarbe 


Neben der Möglichkeit, einzelne Zeichen farbig 


auszugeben, kann auch noch die Vorder- und Hintergrund- 
farbe gewählt werden. 


Die Vordergrundfarbe kann durch das folgende 
kleine Programm angegeben werden: 


JO REN its 2... » VORDERGRUNDFARBE 
2@ FÜR I=® TO 15 

36 POKE 53281,1 

48 FOR W=1 TO 5@®: NEXT W 

56 NEXT I 


Sie sehen der Reihe nach alle mit dem Commodore 64 
darstellbaren Farben. 


In Zeile 30 steht die Nummer des Speicherplatzes, 
der die Vordergrundfarbe bestimmt. Gibt man stattdessen 
die Adresse 53>2g0 an, so werden die Hintergrundfarben 
dargestellt. 


Damit haben wir zwei Speicherplätze kennengelernt, 
die schon interessante Farbmöglichkeiten bieten. 


DER Mehrfarbenmodus 


Zusätzlich zu der im vorletzten Abschnitt be- 
sprochenen Möglichkeit der Farbdarstellung gibt es die 
Möglichkeit, einzelne Zeichen auch mehrfarbig darzu- 
stellen. Dazu werden noch weitere Adressen benötigt, 
die diese Farben kontrollieren, Insgesamt kann man 4 
Farben auswählen. 


Probieren Sie dazu das folgende Programm aus: 


10 REM. m nnnneaeeenennnnnnnnunnnee nennen nn en en MEHRFÄRBENMODUS 
20 PRINT"T° 

38 POKE S32B1,152 REMnnnnnnnnnennnaneunun nun nnen nun nn un. ERAU 3 
40 POKE 53282,2: REM...... ee EHE EBENEN: 1; 
56 POKE 53283,7: REM. nnnnnaamannanenenuuunnenennnn nenn n nn nn BELB 
66 POKE 53270,24: REM. 22224444000 MEHRFARBENMODUS EINSCHALTEN 
78 FOR Z=1 TO 2@: PRINT"@ "32 NEXT Z 
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In den Zeilen 30 bis 50 stehen die jeweiligen 
Farben. Der in Zeile 30 angegebene Wert 15 für die 
Hintergrundfarbe steht für die Farbe Grau. 


In den Zeilen 40 bzw. 50 ist die jeweilige Farb- 
nummer für Rot und Gelb für die Buchstaben angegeben. 


In Zeile 60 wird der Mehrfarbenmodus eingeschal- 
Let; 


Im nächsten Programmbeispiel lassen wir - durch 
Zufallszahlen bestimmte —- farbige Bildschirmpunkte er- 
scheinen: 


18 REM. ....u... Seesen FARBPUNKTE MIT CURSOR 
28 PRINT "7: POKE 53288,0: POKE 53281,0 

se FOR I=1 TO 1886 

33 REM. „us... un... «=... BERECHNUNG DES BILDSCHIRMSPEICHERPLATZES 
40 A=INT(RND (1) #100) +1024 

45 REM. „nususumenunuunnnnnnnnnenunnenn nun n. BERECHNUNG DER FARBE 
68 F=INT{RND(1)#16) +1 

88 IF PEEKIA)=168 THEN GOTD 116 

98 POKE A,158@: POKE A+r54272,F 

11 NEXT I 

128 GET A$: IF A$="" THEN GOTO 128 

1536 PRINT "/7"5: POKE 53280,14: POKE 53281,6 

148 END 


READY. 
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‘Grafik 


Hochauflösernde Grafik 


Bisher hatten wir den Bildschirm in ein Raster 
eingeteilt, das aus 25 (Zeilen) mal 40 (Spalten) "Käst- 
chen" bestand. An jede dieser 1000 Positionen konnte 
ein Zeichen gesetzt werden, z.B. ein Buchstabe oder ein 
Grafikzeichen. 


In der '"Hochauflösenden Grafik' hingegen wird der 


Bildschirm in ein viel feineres Raster unterteilt, das 
aus 200 (Zeilen) mal 320 (Spalten) - insgesamt also 
64000 - Punkten besteht, von denen jeder einzelne 


direkt angesprochen werden kann. 


Geht man von der Standarddarstellung aus, so kann 
man sich den Bildschirm bei der hochauflösenden Grafik- 
darstellung auch so vorstellen, daß jedes der 1000 
normalen Bildschirmkästchen noch einmal "aufgelöst' 
wird in eine Matrix, die sich aus 8x8 Punkten zusammen- 
setzt. 


Für diese Grafikdarstellung besitzt der Commodore 
64 einen speziellen Grafikbaustein, den sogenannten 
Video-Chip. Die für die Programmierung wichtigsten 
Adressen dieses Chips sollen im folgenden erläutert 
werden. Als erstes werden wir uns mit einer besonderen 
Darstellungsmöglichkeit innerhalb der hochauflösenden 
Grafik beschäftigen, mit der Programmierung von 
'Sprites'. 


(Ausführlichere Erläuterungen zu den grafischen 
Möglichkeiten dieses Computers finden Sie in unserem 
Buch "Grafik auf dem Commodore 64". Im einzelnen wird 
dort besprochen: die Verwendung von Grafik-Symbolen der 
Tastatur, Erstellung von (auch mehrfarbigen) Sprites 
(u.a. ein Hilfsprogramm zur Erstellung von Sprites auf 
dem Bildschirm) und die hochauflösende Grafik.) 


Sprites 


'Sprites' (dt.: Kobolde) sind vom Benutzer frei 
definierbare Figuren. Sie sind damit nicht mehr fest- 
gelegt durch die Möglichkeiten, die sich durch die 
Grafik-Zeichen der Tastatur bieten! Außerdem lassen 
sich Sprites, wenn sie einmal definiert sind, sehr 
einfach im ganzen Bildschirmbereich bewegen. 
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Allerdings gibt es zwei Einschränkungen: Jede 
Sprite-Figur besteht nur aus 512 Einzelpunkten, die 
sich aus einer Matrix von 24x21 Punkten zusammensetzen. 
Die zweite Einschränkung betrifft die Anzahl der 
Sprites, die gleichzeitig auf dem Bildschirm erscheinen 
können: es können höchstens 8 Sprites gleichzeitig auf 
dem Bildschirm erscheinen. 


Die nächste Abbildung zeigt Ihnen das Schema einer 


Sprite-Figur. wir wollen die Programmierung eines 
Sprites am Beispiel einer vielleicht nicht ganz un- 
bekannten Figur erläutern. In dem folgenden Programm 


stehen die für das Sprite benötigten Daten in DATA- 
Zeilen. 


SPRITE-ENTWURF 
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wie berechnet man nun die Daten für eine Sprite- 
Figur? Zunächst einmal braucht man ein Raster in der 
entsprechenden Aufteilung, das also aus 24x21 Punkten 
besteht. In dieses Raster wird die gewünschte Figur 
eingezeichnet, Anschließend muß jedes Kästchen, das von 
der Zeichnung berührt wird, ausgefüllt werden. 


Über die obere Reihe des Rasters wird dann von 
links nach rechts dreimal die Zahlenfolge 128, 64, 32, 
16, 8, 4, 2, 1 geschrieben (s. auch Sprite-Datenblatt 
im Anhang). 


Zur Illustrierung wollen wir einmal die Daten für 
die oberste Reihe der Sprite-Figur berechnen: 


In der ersten Gruppe der ersten Zeile ist kein 
Kästchen ausgefüllt. Damit ist der dazugehörige Daten- 
wert O0. Ä 


In der zweiten Gruppe sind die letzten vier Käst- 
chen ausgefüllt. Addiert man nun die über den ausge- 
füllten Kästchen stehenden Zahlen, so erhält man den 
gesuchten Datenwert. In unserem Beispiel ergibt sich 
somit: 8+4+2+1 = 15. 


Da in der dritten Gruppe die beiden ersten Käst- 
chen ausgefüllt sind, erhält man als dritten Wert 192 
durch Addition von 128 und 64. 


Diese Berechnungen müssen für jede Sprite-Zeile 
durchgeführt werden, sodaß sich für ein Sprite ins- 
gesamt 3 x 21 = 63 Daten ergeben. | 


Als nächstes muß der Computer wissen, wo sich die 
Daten für ein Sprite befinden, und in welche Speicher- 
plätze sie gebracht werden sollen, damit das Sprite an 


der gewünschten Stelle auf dem Bildschirm erscheint. 


In unserem Programmbeispiel werden die Daten be- 
ginnend ab Speicherplatz 12288 abgelegt. Durch die 
Angabe POKE 2040,192 wird dem Computer mitgeteilt, wo 
die Daten für Sprite Nr. DO stehen, wobei die Zahl 192 
den Block bezeichnet, in dem die Daten stehen. Da jeder 
Block aus 64 Speicherplätzen besteht, gelangt man so zu 
der Anfangsadresse: 64 x 192 = 12288. Da kein größerer 
wert als 255 in eine Speicherzelle geschrieben werden 
kann (s. Kapitel 9), ist die höchstmögliche Adresse für 
das Ablegen von Sprite-Daten gleich 255 * 64 = 16320. 
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Die Adresse 2040 gibt an, welches Sprite ange- 
sprochen wird. Von den 8 möglichen Sprites haben wir 
das Sprite Nr. O gewählt. Entsprechend wird durch die 
Adressen von 2041 bis 2047 festgelegt, an welcher 
Stelle die Daten für Sprite Nr. 1 bis Sprite Nr. 7 
abgespeichert wurden. 


Der letzte Schritt, um ein Sprite erscheinen zu 
lassen, ist noch die Angabe der Bildschirmposition, an 
der es stehen soll. Dazu werden die Adressen V+0O bis 
V+15 benötigt. Für jedes Sprite muß eine X- und eine Y- 
Koordinate angegeben werden. In unserem Beispiel ist 
die Figur 180 Punkte vom linken Bildschirmrand ent- 
fernt. 


18 REM.annenunnnnunnnnnnnnunnnunennnnnnn. SPRITE ERSCHEINEN LASSEN 
II REN ee leise BILDSCHIRM LOESCHEN 
28 PRINT" 
29 REMeaannaunnnnnonnnnunennnnnannn««SPRITE NR. ® SOLL ERSCHEINEN 
30 V=53248: POKE V+21,1 
39 REM.annnnnunnunnnnnnnnnnnnannnnnnunnnennnnennnn «DATEN EINLESEN 
48 FOR S1=12288 TOD 12350: READ @1: POKE S1,01: NEXT 
49 REM. nnannnonanunnnnnnnnnnnnnnnennn nn „ANGABE WO DIE DATEN STEHEN 
56 POKE 2048, 192 
59 REM.eunannannnnnunnnennunnunnnanneunenn „FARBE FUER SPRITE NR. 0 
60 POKE V+39,1 
EI REMennnnnannnnunnnnnannnmnnnnunennnnnnn ANGABE DER KOORDINATEN 
70 POKE V,180: POKE V+1,180 

99 REM. onnnununnannnnunnennnnnnnnnnnnnn AB HIER STEHEN DIE DATEN 
188 DATA 8,15, 192,15,31,248,31, 247,216 

118 DATA 63,231, 140,63, 255, 6,63 

120 DATA 255, 6,63, 255, 6,31, 255, 6, 7,239, 134,0, 30, 204, 0,62 

148 DATA 120,0,126,0,0,126,0,0,126,0,0,124 

158 DATA 0,0, 62, 224,0,31,224,1,217,224 

168 DATA 3,251, 192,1,251,192, 0, 249,128 


READY. 
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Zusammengefaßt lautet die Programmerklärung also: 


Zeile 30. .Der video-Chip wird angesprochen, 
Sprite O soll erscheinen. 


Zeile 40 Die Daten werden an die entsprechenden 
Adressen gebracht. 


Zeile 50 Die Daten für. Sprite Nr. O werden aus 
dem 192. Block ausgegeben. 


Zeile 60 Die Farbe für das Sprite Nr. DO wird 
bestimmt. 


Zeile 70 Die Koordinaten für Sprite O werden 
angegeben. 


Zeile 100 Hier stehen die 63 Daten für die Sprite- 
-160 Figur. 


In unserem nächsten Beispiel wollen wir zeigen, 
wie eine Sprite-Figur auf dem Bildschirm bewegt werden 
kann. Zunächst aber noch einmal eine genauere Erklärung 
der benutzten Speicherplätze: 


V+ 21 


Dieser Speicherplatz gibt an, welche Sprites auf 
dem Bildschirm erscheinen sollen. Wollen wir z.B. die 
drei Sprites mit den Nummern 2,3 und 5 auf den Bild- 
schirm bringen, so müssen dazu die Zahlen 4 (= 2T2), 8, 
(= 2T3) und 32 (= 275) addiert werden. Diese Summe, 
also 44, wird dann in den Speicher V+21 geschrieben, 


und bewirkt, daß die genannten drei Sprites gleich- 
zeitig auf dem Bildschirm angezeigt werden: POKE V+21, 
44, 


Hier werden die X- und Y-Koordinaten des ersten 
Sprites angegeben. Entsprechendes gilt für die übrigen 
Sprites für die Adressen von V+2 bis V+15, d.h. V+2 
bzw. V+3 enthalten die X- bzw. Y-Koordinaten für das 
zweite Sprite usw. 
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2040 bis 2047 


In diesen Speicherplätzen stehen die Anfangs- 
adressen der Sprite-Daten. 


V+ 39 bis V + 46 


Hier stehen die Farben der Sprites, wiederum mit 
Sprite O beginnend. 


Mit dem letzten Programm können wir eine weitere 
Besonderheit der Sprites ausprobieren, Lassen Sie die 
Figur auf dem Bildschirm stehen und geben Sie die An- 
weisung 


POKE V+23,1 
ein. Als Ergebnis sehen Sie die Sprite-Figur in Y- 
Richtung vergrößert. Eine Vergrößerung in X-Richtung 
wird durch diese Anweisung erreicht: 

POKE V+29,1 

Soll das Sprite wieder in Originalgröße auf dem 
Bildschirm erscheinen, so müssen beide Speicher auf O0 


gesetzt werden: 


POKE V+23,0: POKE V+29,0 


Im nächsten Programm wollen wir die Figur aus 
unserem Beispiel sich bewegen lassen. 


Dazu müssen die Sprite-Entwürfe aus der nachfol- 


genden Abbildung ausgerechnet werden. Eine Bewegung 
entsteht dann dadurch, daß die einzelnen Figuren fort- 
laufend auf dem Bildschirm erscheinen, wieder gelöscht 


werden und etwas versetzt an der nächsten Stelle wieder 
erscheinen usw. 


Auf die Art und Weise läßt sich ein kleiner 
Zeichentrickfilm zusammenbauen. 
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IO-REM. 2a ee eren „nen... BEWEGUNG VON SPRITES 


PSREM se ech PR GERSENEELNIFIERDIR BILDSCHIRM LOESCHEN 
PRINT" I" 
BEN see ee “aysnnennnn»SPRITE NR. ® 
V=53248 
POKE V+21,1 
RE EEE EINLESEN DER DATEN FUER 3 FIGUREN 
FOR 11=12288 TO 12350: READ 81: POKE I1,B1: NEXT I1 
FOR 12=12352 TO 12414: READ 02: POKE 12,02: NEXT 12 

3 FOR I3=12416 TO 12478: READ 05: POKE 13,03: NEXT I3 
213 VENEN TEN PEREET EEE ETERIERT “nuunnn. FARBE SPRITE NR. @ 
POKE V+39,1 

BP=1025 BEN Jane see “anna „ANFANGSFIGUR 
1 MARS RRNEREER IEWESHERIE ER EURER eunnnunnnnnnnnennnnnnnn VKOORDINATE 
FOKE V+1,188 

DB REM. aan „SCHLEIFE ZUR VERSCHIEBUNG AUF DEM BILDSCHIRM 
FOR X=347 TO 8 STEP-3 


R=INT (X/256) 

POKE V,X-256#R: POKE V+16,R 

REMseE sun ZUSAMMENSETZEN DER 3 FIGUREN ZU ’EINER’ 
POKE 2840, P 

FOR T=1 TO 106: NEXT T 

P=P+lz REM nn. BERN RER HERAN “anne. „NAECHSTE FIGUR 
IF P>194 THEN P=192 

NEXT X 

GOTO 410 
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DIR REMenneeenananennnannn AB HIER STEHEN DIE DATEN 

1000 REM eneennennnnan anne 1. FIGUR 

1818 DATA 9,15,192,15, 31,248, 31,247, 216,63,231,140, 63, 255, 6,63 
1028 DATA 255,6,63,255,6,31,255,6,7,239,134, 0,30, 204, 0,62 
10538 DATA 120,0,126,0,0,126,8,8,126,8,0,126 

1035 DATA 0,0,62,224,0,31,224,1,217,224 

1848 DATA 3,251,192,1,251,192,9,249, 128 

1108 REM. „nnnaeennnannnnnnn 2. FIGUR 

1118 DATA 0,15,192,15,31, 248, 31,247, 216,63,231, 140, 63, 255, 6,63 
1128 DATA 255, 6,63, 255, 6,31, 255,6,7,239,134,0, 30, 204,0,62 

1136 DATA 120,0,126,9,0,126,0,0,126,0,0,12& 

1135 DATA 0,0,62,0,0,31,0,0,59,128,1,177 

1148 DATA 128,3,247,128,1,247,128 

1200 REM. .nnnaaennunnnnnnnn 3. FIGUR 

121% DATA 0,15,192,15,31, 248,31, 255, 216,63, 255, 140, 63, 255, 6,63 
1228 DATA 255, 6,63, 255, 6,31,255,6,7,239,134,0, 30, 204,0,62 

1238 DATA 120,0,126,0,0,127,0,0,127,0,0,127,0,0,63,0 

1240 DATA 0,30,0,0,206,0,1,254,0,0,254,0,0,124,® 


READY. 
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Hier die Programmerklärung: 


Zeile 300 - 305 
Der Video-Chip wird angesprochen und Sprite Nr. 6) 
'eingeschaltet' 


Zeile 320 - 340 
Die Daten der jeweiligen Figuren werden nachein- 
ander in verschiedene Blöcke abgelegt. 


Zeile 360 
Die Farbe (in diesem Fall weiß) wird für das 
Sprite Nr. O angegeben. 


Zeile 390 
Angabe der Y-Koordinate für das Sprite. 


Zeile 410 bis 430 

Bestimmung der X-Koordinaten. Die Angabe V+16 
bewirkt, daß sich die Sprite-Figur von Position 256 bis 
zum rechten Bildschirmrand hin bewegen kann. 


Zeile 450 bis 490 

Die einzelnen Figuren werden nacheinander auf den 
Bildschirm gebracht. Damit die Bewegung nicht zu 
schnell abläuft, ist in Zeile 460 eine Warteschleife 
eingebaut. 
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Sprite - Übersicht 


Die Anfangsadresse des Video-Chips lautet 53248 
und wird der Variablen V zugewiesen. 

V+Oo bis V+ 15 

Diese Speicheradressen kontrollieren die X- und Y- 
Koordinaten eines Sprites. Jeweils paarweise werden die 
Koordinaten eines Sprites zugeordnet. Die X- bzw. NY- 
Koordinate von Sprite O steht also in V+O bzw. V+1 usw. 

V+ 16 

Durch diesen Speicherplatz wird es ermöglicht, ein 
Sprite über die X-Koordinate 255 zu bringen, d.h. über 
den ganzen Bildschirm zu steuern. Dazu werden die den 
Sprites von O bis 7 entsprechenden Werte 1, 2, 4, 8, 
16, 32, 64, 128 in den Speicher V+16 geschrieben. 

V+ 23 

Diese Adresse gibt die Möglichkeit, jedes Sprite 
von O bis 7 in Y-Richtung zu vergrößern. 

V28 

Durch diesen Speicher wird der Mehrfarbenmodus 
eingeschaltet. 

V+ 29 

Hier wird wie bei V+23 das Sprite vergrößert, 
allerdings in X-Richtung. 


V +30 


In diesem Speicher wird eine Berührung von Sprites 
untereinander registriert. 
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V+ 31 


Gibt ebenfalls eine Berührung an, edoch von 
Sprite und Hintergrund. 


VER ST 


wird im Mehrfarbenmodus gebraucht und gibt die 
Farbe für den ersten gesetzten Punkt an. 


W838 


Ist ebenfalls für den Mehrfarbenmodus notwendig, 
und zwar für den zweiten gesetzten Punkt. 


Ye. 39 bis V+ 46 


‚In diese Speicherplätze werden die Farben für die 
Sprites gesetzt, wenn die Sprites einfarbig erscheinen. 
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Hochauf1lcosende Ce 2 ee < 


In diesem Abschnitt wollen wir beschreiben, wie 
man die hochauflösende Grafik des gesamten Bildschirms 
ausnutzen kann. 


Der Commodore 64 besitzt leider keine speziellen 
Befehle zur Unterstützung der Grafik-Programmierung, 
sodaß sich die Programmierung von hochauflösenden 
Grafik-Darstellungen ähnlich aufwendig gestaltet wie 
die der Sprites. 


Beginnen wir mit dem Einschalten der hochauflösen- 
den Grafik! Die Anfangsadresse des Video-Chips für die 
Steuerung der hochauflösenden Grafik ist 53248. Diesen 
Wert weisen wir der Einfachheit halber wieder einer 
Variablen zu: V = 53248, 


Durch die Anweisungen 


POKE V+17,59 und 
POKE V+24,24 


wird auf den Grafikmodus umgeschaltet. 

Zusätzlich kann nun noch eine Farbe angegeben 
werden, die in den Bildschirmspeicher übernommen wird. 
Die dazu notwendige Anweisungsfolge lautet: 


FOR L.= 1024. TO. 20235 FOKE I;HFFIS=PFi NEXT I 


Dabei ist HF der Wert der Hintergrundfarbe und PF 
der Wert der Punktfarbe. 


Die Grafikdaten für einen vollständigen Grafik- 
bildschirm stehen in den Speicherplätzen 8192 bis 16383 
zur Verfügung. 


Dieser Speicherbereich ist zunächst undefiniert 
(oder enthält noch alte grafische Daten) und muß des- 
halb vor dem Erstellen einer Grafik gelöscht werden. 
Dies kann durch die folgenden Anweisungen geschehen: 

FOR I = 8192 TO 16383: POKE I,0O: NEXT I 


Dadurch wird in alle Speicherzellen des Grafikbereiches 
der Wert O geschrieben. 
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Mit dem folgenden Programm können Sie ein wohl- 
geformtes Herz auf dem Bildschirm darstellen. 


Bemerkenswert daran ist wohl, daß eine einzige 
mathematische Funktion die herzförmige Kurve erzeugt. 
Diese Funktion lautet: 


2 2 +|x|- 6 | 
Va a ah ‚/36 = *L2 


3 | x72 +] x |+ 2 


10 REN. Suse ENTFERNTEN anunnnnnnn. HERZ-FUNKTION 
20. REM sau ea eu une GRAFIK EINSCHALTEN 
30 v=53248 

46 POKE 53280,9: POKE V+17,59: POKE V+24,24 

50 FOR 1=1023 TO 2024: POKE 1,32: NEXT I 

608 FOR I=81972 TO 16393: POKE 1,8: NEXT I 

ZONBEN ausser eine FUNKTION 
B8 FOR X=41 TOD 279 

90 I=1X-168) 7/7290 

1068 Yi1=2/3#*  (It2+ABS{I)-6) /(It2+ABS (I) +2) +50R (36-112) ) 

110 Y2=2/3%* ( (It2+ABS(CI)-6) / (It2+ABSCI) +2) -SOR(36-112)) 

128 Y1=-Y1#20+79 

130 Y2=-Y2x20+79 

148 FOR Y=Y1 TO Y2 

150 GOSUB 209 

168 NEXT Y 

170 NEXT X 

188 GET Z$: IF Z$="" THEN GDTO 180 

198 POKE V+17,155: POKE V+24,21: PRINT"I": END 

200 REM. -uuunnnun. ET ENRERUTRERTE UNTERPROGRAMM PUNKT SETZEN 
218 YK=320*INT (Y/B)+INT((Y/B-INT (Y/B))*B) 

220 XK=8*INT (X/8) 

238 EX=2t (7-INT(X/8-INT(X/8))*8B)) 

240 5=8192+YK+XK 

250 POKE S,PEEK(S) OR EX 

268 RETURN 


READY. 
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Nun wieder die Programmerklärung: Fe 


Zeile 30 
Die Anfangsadresse des Video-Chips wird einer 
Variablen zugewiesen. 


Zeile 40 
Die Rahmenfarbe wird auf schwarz eingestellt und 
die hochauflösende Grafik vorbereitet. 


Zeile 50 

Der Bildschirmspeicher kontrolliert in der hoch- 
auflösenden Grafik die Farbe. Hier wird die Farbe Rot 
für das Herz gewählt. 


Zeile 60 
Der Grafikspeicher wird vor dem Aufbau der Grafik 
gelöscht. 


ze1le 807518170 
Das Bild wird aufgebaut. 


Zeile 80 bis 90 
Die Grafik wird auf die Bildschirmgröße normiert. 


Zeile 100 und 110 
Berechnung der Funktionsgleichung. 


Zeile 120 bis 170 
Berechnung der aktuellen Bildschirmpunkte. 


Zeile 200 bis 260 
Unterprogramm zur Berechnung der Grafikpunkte des 
Bildschirms. 


wir hoffen, daß Ihnen dieses Beispiel gefällt und 
machen noch einmal darauf aufmerksam, daß der Grafik- 
aufbau sehr langsam geschieht: bis zur Fertigstellung 
dieser Grafik dauert es ca. 50 Minuten! - Falls Sie 
nicht soviel Geduld haben sollten, finden Sie nach- 
stehend eine Abbildung der Herz-Grafik: 
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° Musik 


Musikprogrammierurg 


Der Commodore 64 besitzt - ebenso wie für die 
Grafik - auch einen speziellen Baustein zur Erzeugung 
und Programmierung von Musik. Dieser Chip wird kurz als 
SID bezeichnet, eine Abkürzung für 'Sound Interface 
Device’. j 


Mit diesem Musikbaustein kann man sowohl die 
unterschiedlichsten Geräuscheffekte - z.B. für Spiele - 
als auch eine Vielzahl von ganz verschiedenartigen 
Klängen erzeugen, wobei ein Musikstück bis zu drei 
Stimmen haben darf. 


Im folgenden werden wir auf die Funktion der ein- 
zelnen Speicherplätze eingehen, die man zur Program- 
mierung von Musik benötigt. Die Anfangsadresse des 
Musikchips weisen wir wieder einer Variablen - SI - zu. 
Sie liegt in diesem Fall bei 54272, 

Grundla 
program 

Die Erzeugung eines Tones hängt von einigen physi- 
kalischen Größen ab, die wir im einzelnen kennenlernen 
wollen. Zur Programmierung von Musikstücken genügt es 
erst einmal, zu wissen, daß ein Klang von verschiedenen 
Parametern bestimmt wird. Dazu gehören die Tonhöhe, 
Lautstärke, Wellenform und der Anschlag bzw. Ton- 
einsatz. 


Für das Programmieren einfacher einstimmiger Melo- 
dien genügt die folgende Ubersicht der entsprechenden 
Speicherplätze: 


1. Tonhöhe (SI u. SI + 1, bzw. 54272 u. 54273) 


Die Tonhöhe wird durch die Frequenz bestimmt. 
Hierzu sind zwei Speicherplätze erforderlich. 


2. Lautstärke (SI + 24 bzw. 54296) 


Die Lautstärke kann in 16 Abstufungen eingestellt 
werden. Wird der Wert Null in diesen Speicherplatz 
geschrieben, so wird der Ton ausgeschaltet. Die 
Werte 1 bis 15 (maximale Lautstärke) geben dann 
die gewünschte Lautstärke an. 
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3. Wellenform (SI + 4 bzw. 54276) 

Die Wellenform hat entscheidenden Einfluß auf 
einen Klang. Der Musikchip kann vier verschiedene 
wellenformen erzeugen. Es sind Dreieck, Sägezahn, 
Rechteck und Rauschen wählbar. 


4. Anschlag (SI + 5 u. SI + 6 bzw. 54277 u. 54278) 
Durch diese beiden Speicherplätze läßt sich der 
Verlauf der Lautstärke eines Tones bestimmen. 
Dieser Verlauf wird durch die sogenannte Hüllkurve 
beeinflußt. 


Im nächsten Programm wird eine einstimmige Melodie 


erzeugt, die einen ersten Eindruck von den musika- 
lischen Fähigkeiten des Computers gibt. 


18 
20 
38 
48 
ja] 2) 
68 
70 
75 
80 
85 
98 
108 
110 
120 
130 
140 
150 
168 
170 
189 


REM..... .un.n. TB enunnennaannueunennne Raser EINFACHE MELODIE 
SI=SS4272:REM.„unusosnuunnneuunnnsann nu ne BASISADRESSE MUSIKCHIF 
POKESI+5,9: FOKESI+6,@:REM..... ANSCHLAG UND HALTEN {HUELLKURVE) 
POKESI+24,15:REM. ........ nnunuuncnn „nn... MAXIMALE LAUTSTAERKE 
REM...“ uonnunnannnnnn. „EINLESEN DER FREQUENZEN UND NOTENDAUER 


READ HF,NF,NW 
IF HF{@ THEN POKE SI+?24,9: END 


REMaannunn. ENTER RENERE “anunn.„EINLESEN DER FREQUENZEN 
FOKE SI,NF: POKE SI+1,HF 

REN ee MEN . „WELLENFORM (SAEGEZAHN) 
POKE 5I1+4,33 

REM. 2... en: ER RES ee ee NOTENWERT 
FOR I=1 TO NW 

NEXT I 

REN ee een AUSSCHALTEN LAUTSTAERKE (RELEASE) 
POKE 51+4,32 

REN. Seien aueiee FERNER RLTRRRN BEER WARTESCHLEIFE 
FORI= 1 TO 7@ : NEXT 

REM anna nnnnnn a RUECKSPRUNG FUER NAECHSTE NOTE 
GOTO 68 
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177 
200 
218 
220 


250 


240 
258 
260 
270 


REM nnunnunnuunnannunannnn FREQUENZEN IN REIHENFOLGE HF,NF,NW 
DATA 34,192, 128,39, 32, 128,43, 224, 256,52, 32,256 

DATA 52,32, 256,58, 128, 256,52, 32, 256,43, 224, 256 

DATA 34,192,384,39, 32,128, 43,224, 256, 43, 224, 256, 39,32, 256 
DATA 34, 192,256, 39,32,768,34,192,128,39,32, 128 

DATA 43,224, 256,52, 32,256, 52,32, 256,58, 128, 256 

DATA 52,32, 256, 43,224, 256,34, 192, 256, 39, 32, 256 

DATA 43,224, 256,43, 224, 256,39, 32, 256, 39, 32, 256 

DATA 34, 192,768, -1,-1,-1 


READY. 


In diesem Beispiel wurden folgende Parameter ver- 


wendet: 


In Zeile 20 wird die Anfangsadresse des Musikchips 


zugewiesen. 


In Zeile 30 wird die Hüllkurve bestimmt, d.h. die 


werte für den Anschlag und das Abschwellen werden an- 


gegeben. 

In Zeile 40 wird die maximale Lautstärke ein- 
gestellt. 

In Zeile 60 werden die jeweiligen Frequenzen und 
die Notenlänge eingelesen. Die beiden ersten Werte 
bestimmen die Frequenz, der jeweilige dritte Wert die 


Notendauer. 


In Zeile 90 ist als Wellenform die Sägezahnform 


gewählt worden. 


In Zeile 140 werden die Töne "ausgeschaltet', d.h. 


die Lautstärke wird auf Null gesetzt. 
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Die Eingabe der Frequenzen erfordert noch einige 
Erläuterungen. Die Werte der Frequenzen (s. Anhang) für 
die erste Stimme werden in die Speicherplätze SI und 
SI+1 geschrieben, Zur Speicherung der Frequenzwerte 
werden zwei Speicherplätze benötigt, da in einem Spei- 
cher nur ein Wert bis 255 stehen kann, die Frequenz- 
werte jedoch viel höher sein können. Eine genaue Erklä- 
rung hierzu ist im Theorie-Kapitel zu finden. Die 
Frequenzen werden also in ein höherwertiges und ein 
niederwertiges Byte zerlegt. In unserem Beispiel werden 
dafür die Variablen HF und NF verwendet. 


wie schon erwähnt, bestimmt u.a. die wWellenform 
den Klangcharakter eines Tones. Im nächsten Beispiel 
wird das vorhergehende Programm als Unterprogramm ein- 
gesetzt und stellt nacheinander die Wellenformen Säge- 
zahn, Dreieck und Rechteck vor. Diese akustische Demon- 
stration wird Ihnen schnell deutlich machen, wie be- 
stimmte Instrumente imitiert werden können. 


18 REM. uunuununnnnnn non snunnnnnenanunnnnnunnnn nn nn na WELLENFORMEN 
20 SI=S4272:REM. oonnnunneunnnnnnnnnnun nenn BASISADRESSE MUSIKCHIP 
38 FDR 1=51 TD SI+24: POKE I,@: NEXT I 

40: REM ses ss an .nnunnune „.1. FORM: SAEGEZAHN 
45 PRINT" TIAIRIMIKRISTsIeteIn" "9 SAEGEZAHN ": PRINT"M"," GEIGE" 

»® POKE 5I+24,15 

68 WF=335: AN=S: AB=8: AS=5: =9 

78 GOSUB 406 

86 REM. ...... .uunnesenen nun nunane .nsnennenunnnn2. FORM: DREIECK 
85 PRINT" TIAIMSIIRintatse", "2 DREIECK "= PRINT”®","XYLOPHON"” 

98 RESTORE: WF=17: =: AB=9: AS=0: AF=7 

108 GOSUB 408 


110 REMennannnannnnnnn EUER SIERT ERRGE en 3. FORM: RECHTECK 
115 PRINT"TIMKRMIIIAISII", "St RECHTECK "2 PRINT"W"," KLAVIER" 

128 POKE 51+3,8: POKE SI+2,0: WF=65: AN=9: AB=9: AS=0: AF=O 

130 RESTORE: GOSUB 408 

140 POKE 51+24,9 

150 PRINT" 

168 END 

AOO REMennnnannnnnnnnnnnnnnn De een 22222... MELODIE 
418 POKE SI+5,16*AN+AB: POKE SI+6, 16#AS+AF 

A2® READ HF,NF,NW 

430 IF HF<® THEN RETURN 

448 POKE SI+1, HF: POKE SI,NF 

458 POKE SI+4,WF 

468 FOR I=1 TO NW: NEXT I 

470 POKE SI+4,WF-1 

ABO REMnnnnananunnunnnnnannnnnnnnnnnnnnennnunnenn nn „NÄAECHSTE NOTE 
490 GOTO 429 

5®® RESTORE: RETURN 

SIG REM nnaanenunanunnnennunenn „DATEN IN DER REIHENFOLGE HF,NF,NW 
688 DATA 34,192, 128,39,32,128, 43,224, 256,52, 32,256 

618 DATA 52,32, 256,58, 128, 256,52, 32, 256,43, 224, 256 

620 DATA 34,192,384,39,32, 128,43, 224, 256, 43,224, 256,39, 32, 256 
630 DATA 34,192, 256,39, 32,768,34, 192, 128,39, 32,128 

648 DATA 43,224, 256,52, 32, 256,52, 32, 256,58, 128, 256 

656 DATA 52,32, 256, 43,224, 256,34, 192, 256, 39,32, 256 

668 DATA 43,224, 256,43, 224, 256,39, 32, 256,39, 32,256 

678 DATA 34, 192,768, -1,-1,-1 

READY. 
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Der Unterschied zum vorhergehenden Programm be- 
steht im wesentlichen darin, daß der Variablen WF nach- 
einander die Werte der jeweiligen Wellenform zugewiesen 
werden. Außerdem bekommen die Variablen AN(schlag), 
AB(schwellen), AS(Aushalten) und AF(Abfallen) verschie- 
dene Werte. 


Die Zeilen bis 140 bestimmen das Klangverhalten. 


In der Zeile 410 erfolgt die Berechnung der Hüll- 
kurve. 


Die übrigen Programmzeilen werden Ihnen wohl be- 
kannt vorkommen. 


Die Hullilkurvoe 


Zur genaueren Erklärung der Hüllkurve läßt sich am 
besten die folgende Abbildung heranziehen. Die ent- 
sprechenden englischen Bezeichnungen sind in Klammern 
angegeben. 
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HUÜLLKURVE 


In 
w. | —— | 
RN N 
AN AB AS AF 


(Attack) (Decay) (Sustain) (Release) 


1719 


Das Feld mit der Bezeichnung AN =Anschlag (Attack) 
stellt den Zeitraum dar, in dem ein Ton die maximale 
Lautstärke erreicht hat. 


Das zweite Feld mit der Bezeichnung AB = Ab- 
schwellen (Decay) zeigt an, in welcher Zeit der Ton von 
seiner maximalen Lautstärke auf einen Haltepegel ab- 
fallt. 


Das dritte Feld AS = Aushalten (Sustain) gibt die 
Zeitdauer des Aushaltens an. 


Das vierte Feld AF = Abfallen (Release) gibt an, 
wann der Wert wieder auf Null abfällt. 


Den Verlauf dieser Parameter gibt die eingezeich- 
nete Hüllkurve an. 


Im nächsten Beispiel stellen wir eine altenglische 
Melodie vor, die Heinrich der VIII. einer seiner Frauen 
gewidmet haben soll. Es wird eine Flöte nachgebildet, 
wobei verschiedene Hüllkurven ausprobiert werden. Wer 
die vollständige Melodie hören möchte, findet die ent- 
sprechenden Daten im Anschluß an dieses Programm. 
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18 REM. „.enennnun0n Bonsnmeuusensunuennnnnnmunne nn nn nn» HÜELLKURVE 


20 51=-54272: REM..„sosuosuunounnunn eunnna.. BASISADRESSE MUSIKCHIP 
38 FOR I=5I TO SI+24: POKE 1,0: NEXT I 
48 REM....... .uneenennnn wnunnne ....... „nenn... WELLENFORM DREIECK 


50 REM POKE S1+4,17 

68 POKE SI+24,15 

78 PRINT" TIMER", "3 DREIECK " 

88 AN=2: AB=®: AS=10: AF=® 

90 GOSUB 598 | | | 
100 REM 222... RR u... VERSCHIEDENEN HUELLKURVEN-EINSTELLUNGEN 
118 AN=O 

120 AB=9 

130 AS=0 

148 AF=0 

156 IF (AN=® AND AB=® AND AS=® AND AF=) THEN GOTO 178 

158 GOSUB 500 

170 AF=15: GOSUB 500 

186 IF AS=15 THEN 60TO 200 

198 AS=15: GOTO 140 

2008 IF AB=15 THEN 60T0 220 

216 AB=15: GOTO 130 

220 IF AN=15 THEN 60T0 248 

238 AN=15: GOTD 120 

246 POKE SI+24,0: PRINT": END 
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508 REM-nunnannenennnennnn PEN NTREN RER EUNIRESRINEIRERRERRGS. „MELODIE 
518 PRINT" SIEIDKIISIIIIKIKT", "ANSCHLAG = EINE" AN 

520 PRINT, "ABSCHWELLEN = IE";AB 

530 PRINT,"AUSHALTEN = HEMI3AS 

546 PRINT, "ABFALLEN = BEBI"SAF 

550 POKE SI+5, 14#+AN+AB 

568 POKE 5I+6, 16*AS+AF 

570 READ HF,NF,NW 

580 IF HF<® THEN RESTORE: RETURN 

598 POKE SI+1,HF: POKE SI,NF: POKE SI+4,17 

608 FOR I=1 TO NW/2: NEXT I 

618 POKE SI+4,16 

628 GOTO 570 

638 RESTORE 

648 RETURN 

1000 REM. annananeunununnennn „DATEN IN DER REIHENFOLGE HF, NF, NW 
1018 DATA 29,64,512,34, 192, 1024,39,32,512,43, 224,768 
1026 DATA 46, 128,256, 43,224,512,39,32, 1024,32, 224,512 
1038 DATA 26, 16,768, 29,64, 256,32,224,512,34, 192, 1024 
1048 DATA 29,64,512,29, 64,768, 27,160, 256,29, 64,512 
1050 DATA 32,224, 1024,27, 160,512, 21,249, 1024, -1,-1,-1 


READY. 
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Sreensleabes 


REM. Sean eeeereenee DATEN GREENSLEEVES IN NF,HF,NW 


29,69,512, 34,207, 1924 
39,18,512,43,219,768 
49,58, 256, 43,219,512 
39,18, 1024, 32,219,512 
26,20,768, 29,69, 256 
32,219,512,34, 207, 1024 
29,69,512,29,69, 768 
27,168, 256, 29,69,512 
32,219, 1024,27,160,512 
21,237,1024,29,69,512 
34,207, 1024,39,18,512 
43,219, 768, 49,58, 256 
43,219,512,39, 18, 1024 
32, 219,512, 26,20, 768 
29,69, 256, 32, 219,512 
34, 207,768, 32,219, 256 
29,69,512, 27,160, 768 
24, 157,256, 27,168,512 
29,69, 1024,29,69,512 
29,69, 1536 

52,39, 1536,52,39,768 
49,58, 256,43, 219,512 
39,18, 1024,32, 219,512 
26,20, 768, 29,69, 256 
32,219,512,34, 207, 1024 


123 


29,69,512,29,69,768 
27,168, 256,29,69,512 
372,219,1924,27,16@,512 
21,237,1536, 52,39, 1536 
52,39,768, 49,58, 256 
43,219,512,39,18, 1024 
72,219,512, 26,20, 768 
29,69, 256, 32, 219,512 
34,297,768,32,219,256 
29,69,512,27,166, 768 
24, 157,256, 27,168,512 
29,69, 1536, 29,69, 1024 
-1,-1,-1 
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Die bisherige Noteneingabe läßt sich durch einige 
einfache Berechnungen noch vereinfachen. Die Angabe der 
Frequenz und des Notenwertes kann jeweils durch einen 
einzigen Wert erfolgen, aus dem sich der Computer 
selbst die anderen Parameter berechnen kann, 


Zur Erinnerung an vielleicht vergessene Noten- 
kenntnisse zeigt die nächste Abbildung die C-Dur- 
Tonleiter: 


C-Dur Tonleiter 


Eine Tonleiter besteht aus 12 Halbtonschritten, 
die folgendermaßen zueinander in Beziehung stehen: Die 
Frequenz eines Halbtons unterscheidet sich von der 
Frequenz des vorhergehenden Tones um den Faktor 12, 
also 1.059463094. Dies ergibt sich aus der Tatsache, 
daß man das Intervall einer Oktave - also ein Frequenz- 
verhältnis von 1:2 - in 12 Stufen mit gleichem Abstand 
unterteilt. Multipliziert man den angegebenen Faktor 
12mal mit sich selbst, erhält man wieder die Zahl 2. 


Man kann also jede Frequenz berechnen, wenn eine 
bestimmte Basis vorgegeben ist. Der Musikchip hat einen 
Umfang von acht Oktaven zur Verfügung. Für die Berech- 
nung der gewünschten Töne geht man nun von einer Grund- 
frequenz je Ton aus, in unserem Fall von der ersten 
Oktave. 


Das nächste Beispielprogramm stellt die Berechnun- 
gen im einzelnen vor. Die Noteneingabe erscheint zu- 
nächst etwas ungewöhnlich. Der entscheidende Vorteil 
liegt aber darin, daß die Datenmengen für ein Musik- 
stück auf ein Drittel reduziert werden, da ja nicht 
mehr High- und Low-Byte sowie der Notenwert für jeden 
Ton einzeln angegeben werden müssen. Dieses Verfahren 
vereinfacht die Noteneingabe also tatsächlich ganz 
erheblich. | 
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In Zeile 40 bis 60 wird die Grundfreauenz ein- 
gelesen; in unserem Fall die 1. Oktave. 


Zeile 100 bestimmt den Notenwert, der hier in 1/16 
Einheiten einzugeben ist. 


In Zeile 140 wird der Ton für die gewünschte 
Oktave berechnet. 


In den Zeilen 180 bis 200 werden Frequenzen und 
anschließend High- und Low-Bytes errechnet. 


In Zeile 610 stehen die Daten für die Basis- 
frequenz. 


10 REM.nnnnnenaneennnnnnn. „BERECHNEN DER NOTENDATEN AUS EINEM WERT 
20 REM-ennnennnnnn IRRUHERERERENN “u... „EINLESEN DER GRUNDFREQUENZEN 
38 DIM F(11) 

48 FOR I=® TO il 

5® READ F(T) 

68 NEXT I 

7@ READ Wz REMeannnennneeennnennan« ZB. EINLESEN DER MELODIE-DATEN 
80 IF W=® THEN POKESI+24,0: END 

96 REN: een een ROTENWERT 
100 NW/= W/128 

IVO REN ea serausersr DK TAVE 
120 0%=(W-128#NW%) /16 

130 REM. nnnneunnnununannununenunnennn en. WELCHE NOTE IN DER OKTAVE 
140 NR=W-128*NW7-16*0% 

150 REM. nnnennnannnnnnnn „FREQUENZ DIESER NOTE IN DER GRUNDOKTAVE 
158 F=F (NR) 

170 REM. ann aeuaananennnnnn nn „FREQUENZ FUER DIE BERECHNETE OKTAVE 
180 F=F*210% 

190 REM nennen anenennanunnenunnnn .HIGH- UND LOW-BYTE DER FREBUENZ 
200 HF%=F/256: NFZ=F-256&HF% 

230 GOSUB 500: REM.Z.B UNTERPROGRAMM......... ZUM SPIELEN DER NOTE 
2A® REM. „onnnenanenenenenenmunenunnennunnunununennn "NÄECHSTE NOTE 
254 GOTO 70 

BO® REM-anneneenanununnunenunnennnn nenn» DATEN DER BRUNDFREBUENZEN 
610 DATA 278, 395,313, 331,351,372,394, 417,442, 468, 496,526 
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Mehrstimmige Musikstücke 


Auf die Möglichkeit des Musikchips zur Erzeugung 
mehrstimmiger Musikstücke wollen wir mit unseren näch- 
sten Beispielen eingehen. 


Dazu haben wir als erstes eine Sonatine ausge- 
wählt. Die ersten Takte dieses Musikstückes sind hier 
angeführt. Das Stück wurde von einem italienischen 
Gitarristen komponiert, der ein Zeitgenosse von Ludwig 
van Beethoven war. Das Programm benutzt die ersten 
beiden Stimmen, die neben den bisher genannten Möglich- 
keiten auch noch durch Filter beeinflußt werden können. 


Mauro Giuliani (1781-1829) 
Sondtim:e- 00,21 No 
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TO REN nennen ZWEISTIMMIGE MELODIE 
36 51=54272 

40 FOR I=SI TO 51+24 

50 POKE 1,0 

60 NEXT I 

7@ DIM HF%. (1,2500) ,NF% (1,2500) ,WFX (1,2580) 

80 DIM GF(11): REM nnnennn ann nnnennnnn ANZAHL DER GRUNDFREBUENZEN 
98 WIO)=17:2 WiLI=I3I: REMennnnen WELLENFORMEN FUER STIMME 1 UND 2 
100 POKE SI+22,8: POKE 51+23,242: REM...... FILTER FUER STIMME 2 
11@ FOR I=@ TO il: REM-ennnnennnennnn EINLESEN DER GRUNDFREBUENZEN 
120 READ GF(I) 

136 NEXT I 

148 PRINT"7INN" 

158 PRINT"1":PRINT" 3 GEDULD, ICH MUSS CA. 1 MIN RECHNEN " 

168 TI$="980000" 

178 REM...... RE EERREERERIENN ..HIER BEGINNEN DIE DATENUMRECHNUNGEN 
188 FOR K=® TO 1: REM. onen nnennnnnn SRENU REN EBERNN ANZAHL STIMMEN 
198 1=0 

260 READ ND: REM..... aan “aunnun„EINLESEN DER NOTENDATEN 
218 PRINT" SIMEIN "3MID$(T1$,4,1)3" MIN UND ";RIGHT$(TI$,2)5" SEK" 


220 
250 
240 
250 
268 
276 
288 
2906 
308 
318 
328 


IF ND=® THEN 60TO 4086 

WA=WIKI = WE=WA-1: REM. „oo osaunuennnu nn WELLENFORM-ANFANG/-ENDE 
IF ND<® THEN ND=-ND: WA=0: WE=@: REM..... ERKENNEN EINER FAUSE 
NWÄ=ND/128B: REM..... .unnsennunnnnnn» BERECHNEN DES NOTENWERTES 
DA=(ND-128*NWX) /16=2 REM. „ones cunneuunnnn nn BERECHNEN DER OKTAVE 
REM. .uo20.. .nnununnn STELLUNG DER AKTUELLEN NOTE IN DER OKTAVE 
NT=ND- 128%*NW%-16*0% 

FR=GF{NTI= REM... ounssununun. GRUNDFREBUENZ DER AKTUELLEN NOTE 
FR=SFR#210%X: REM. „sus enunnnunne „AKTUELLE FREBUENZ DIESER NOTE 
REM. See ann HIGH- UND LOW-BYTE DIESER FREQUENZ 
HFA=FR/256: NFZ=FR-256*HF% 
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a BESTIMMUNG DER TOENE IN SCHRITTEN VON 1/16-NDTEN 
IFNWA=1THENHF% {K, D=HFA:NFA (K, DD =NFAEWFZ IK, D=WA: I=1+1: 607028 


FOR J=1 TO NWZ-1 

HFX(K,D=HF%: NFZIK,DD=NF%: WEZIK,D=WA: I=sI# 

NEXT J 

HFZ IK, D=HF%: NFZIK,D=NFX: WFZ(K, ID =WB 

I=I+1: GOTO 200: REM onnneennnnen een „2... .NAECHSTER TON 
IF I>IMAX THEN IMAX=I: REM..... BESTIMMUNG DES HOECHSTEN INDEX 
NEXT Kz REM ann. EERERER: ng er u... NAECHSTE STIMME 
REM. ..... EEE TEDISEHERTERESRNGE RER ARE ..ENDE DER BERECHNUNGEN! 
POKE SI+5,0: POKE SI+6,248: REM...... HUELLKURVE FUER STIMME 1 
POKE S1+12,1@: POKE 51+13,197: REM...HUELLKURVE FUER STIMME 2 


POKE SI+1,HF%(8,1): POKE SI+8,HF%(1,D: REM... . . .HISH-BYTES 
REM ananann SEEN ““unu..AB HIER WIRD DIE MELODIE GESPIELT 
PRINT"M 9 FERTIS! " 


PRINT"® MOECHTEN SIE DIE MELODIE JETZT HOEREN? (J/N)" 


GET Z$: IF Z$="" THEN GOTO 498 

IF Z$="N" THEN PRINT"MM SCHADE UM DIE ZEIT'!": END 

POKE 51+24,31 

FOR I=® TO IMAX 

POKE SI,NF%(0, I): POKESI+7,NF%(1,I):REM LOW-BYTES DER STIMMEN 
POKE SI+1,HF%(8,1): POKE SI+8,HF%(1,D): REM... .... .HISH-BYTES 
POKE 5I+4,WF%(0,I): POKE SI+11,WF%(1,D): REM.... . WELLENFORMEN 
FOR T=1 TO 40: NEXT Tz REM. ennnennn anunnnnn ne WARTESCHLEIFE 
NEXT Iz REMenneneneunnnnnnnnunn nn nnnen nenn „NÄECHSTE 1/16-NOTE 
FOR T=1 TO 50: NEXT Tz REMennnnnennneanen nenn « WARTESCHLEIFE 
POKE SI+24,0: REM. no nnnnnnnnneennnnnnnnnnnnnn „LÄUTSTAERKE = 0 
PRINT: INPUT" WIEDERHOLUNG (J/N) "3W$ 

IF W$="J" THEN GOTD 590 
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REM: esse es aunnunnnenennnn « PROGBRÄMMENDE! 

268, 284, 301,318, 337,358, 379, 401,425, 451, 477,506 

587, 592, 592,594, 594,596, 592, 855, 341,596 | 

592,585,594, 1104, 459, 199, 457,203 

592, 592,594,594,596, 592, 855, 341,468, 208, 457, 210, 592,587 
1106, 592,468, 213, 1111, -384, 201,468 

215, 1199, -384, 199, 466, 213, 596, 592 

457,203, 464,210, 1104, 459,199, 457 

203, 592,592, 594, 594,596, 592,855 

341,468, 208, 457, 210, 592,587, 1106, 336, 327,329, 331,592 

592,594,594,596, 592, 855, 341,596, 592, 329, 331, 336, 338 
1104,331,327,329, 331,592,592, 594,594, 596,592, 855, 341 

340, 336, 329, 338, 592,587, 1106, 592,346, 341, 1111, -256 

329,340, 343, 1109, -256, 327,338, 341, -256, 340, 338, 3356 

331,329,341,338, 1104, 331,327, 329, 331,592, 592,594,594 

596, 592,855, 341,340, 336, 329, 338, 592,587, 1106, 592, 
587,580, 576,571,567,576, 5880, 571,567,576 


1620 DATA 588, 1093, 580, 583,578, -512 


586, 576,571,567,576, 580, 571,567,576,581,580,578 
581,583,588, 512,588, 578,577, -512,578,576,571,-512 
576,580, 1093, 580, 583,578, -512,580 
576,571,567,576,588,571,567,576 E 
581,580, 578,581,583, 580, -512,324,327,320, 327,315, 327 
311,327,320,327,324,327,315,327,567,320, 327, 324,327 
1977,311,327,324, 327,578, -512,324, 327,320, 327,315,327 
311,327, 329, 327,324,327,315,327,567,576, 581,324, 327 
322,327,315,327,325,327,576,-512,324, 325,324, 322,577 


1118 DATA -512, 322,324, 322, 320,571, -512, 1888, 1077 


311,327, 324,327,578,-512,324, 327,320, 327,315, 327 
311,327, 320,327,324,327,315,327,551,576, 581,324, 327 
322,327,315,327, 325, 327,576, -768, 
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wir hoffen, daß Ihnen die Melodie gefallen hat. 
Sollte es an einer Stelle allzu 'schräg' klingen, so 
überprüfen Sie am besten die DATA-Zeilen, da man sich 
beim Eingeben von DATA-Zeilen sehr leicht vertippen 
kann. 


Das Programm wurde ausgiebig mit Kommentarzeilen 
versehen, die wohl alles wichtige erläutern. 


Auf einen wesentlichen Unterschied zu den bis- 
herigen einstimmigen Melodien wollen wir jedoch noch 
eingehen. Da beide Stimmen gleichzeitig erklingen 
müssen, ist eine vorhergehende Berechnung notwendig. 
Dabei werden die Töne in 1/16-Noten zerlegt und für 
jede einzelne 1/16-Note die Frequenzen (also LOW- und 
HIGH-Byte) und die jeweilige Wellenform in Feldern 
abgelegt. Dadurch entstehen während des Spielens keine 
unerwünschten Verzögerungen durch die Berechnungen, 
sodaß beide Stimmen gleichzeitig erklingen. 


Die Dauer der Berechnungszeit wird im Programm 
angegeben. (Für diese und ähnliche Fälle bietet sich 
die Funktion TI$ an). 


Mit diesem Programm können Sie leicht experimen- 
tieren, indem Sie z.B. Wellenform, Hüllkurve oder Fil- 
ter verändern. 


Das letzte Beispiel des Musik-Kapitels nutzt die 
Fähigkeit des Musikchips, auch dreistimmige Musikstücke 
zu spielen. Das Programm erzeugt die ersten Takte eines 
sicherlich bekannten Bourrees. Die restlichen Daten 
finden sich wieder nach dem Programm. 


Dieses Programm unterscheidet sich von den vorher- 
gehenden nur dadurch, daß zusätzlich die dritte Stimme 
. zur Musikprogrammierung verwendet wird. Auch hier bie- 
tet es sich wieder an, die verschiedenen Parameter zur 
Musikerzeugung zu verändern. 
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REM. Hs ana ERTEILT DREISTIMMIGE MELODIE 
51=54272 


FOR I=S1 TO SI+24 
POKE 1,® 
NEXT I 
DIM HF%. (2,1980) „NF% (2,1000) „WF%. (2,1009) 
DIM GF{11): REM....... IR SERTORTIETERIR: ANZAHL DER GRUNDFREQUENZEN 
W{O)=3%: Wi1)=65: W(D)=17: REM...... WELLENFORMEN STIMMEN 1,2,3 
POKE SI+18,8: POKE S1+22,128: POKE SI+23,248: REM...... FILTER 
FOR I=@ TO il: REMenannnnnnnannnn EINLESEN DER GRUNDFREQUENZEN 
READ GF(I) 
NEXT I 
PRINT" ZInin" 


PRINT"I":PRINT" 3 GEDULD, ICH MUSS CA. 1/2 MIN RECHNEN " 
TI$="080000" 


REM. zunuunnunsnunanennnan. „HIER BEGINNEN DIE DATENUMRECHNUNGEN 
FOR K=8 TO 2: REM....... .uonsnce .unnuunn annuna ANZAHL STIMMEN 
I=® 

READ ND: REM. . „nun cunnnunnnene “u... .EINLESEN DER NOTENDATEN 
PRINT"AMeIe "SMID${T1$,4,1)5" MIN UND "SRIGHT$(TI$,2)," SEK" 


IF ND=® THEN GOTD 408 


WA=WIK)= WE=WA-I1: REM...... Kenuunnuucn WELLENFORM-ANFANG/-ENDE 
IF ND<® THEN ND=-ND: WA=0: WE=0: REM..... ERKENNEN EINER PAUSE 
NWA=ND/12B: REM. .„uennnunuunnnunun nn BERECHNEN DES NOTENWERTES 
OA={ND-128%NWA) /16: REM... osununsnnnonane BERECHNEN DER OKTAVE 
REM. „oo un nu. Boesnune STELLUNG DER AKTUELLEN NOTE IN DER OKTAVE 
NT=ND-128#NW%-16*0% 

FR=GF{NTI= REM. „nuununun »-...GRUNDFREQUENZ DER AKTUELLEN NOTE 
FR=FR*210%=2 REM. ......... ...u.... AKTUELLE FREQUENZ DIESER NOTE 
REM ana HIGH- UND LOW-BYTE DIESER FREQUENZ 


HFA=FR/256: NF%A=FR-256%*HF% 
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328 REM. „onunn... BESTIMMUNG DER TOENE IN SCHRITTEN VON 1/18-NOTEN 
348 IFNWZ=1THENHF% (K, D=HFA:NFA (CK, D=NFZEWF% (K, D=WA: I=1+1: 6070286 
Ssa@ FOR J=1 TO NWZ-1 

36@ HFAIK,DD=HF%A: NFA(K,DI=SNF%: WFACK,D=WA: I=1I+ti 

78 NEXT J 

388 HFA(K,D=HF%: NFAK,DI=SNF%: WFACK,D=WB 


>98: 1=It1:- GOTD 200: RER. ss NAECHSTER TON 
4060 IF I>IMAX THEN IMAX=I: REM..... BESTIMMUNG DES HOECHSTEN INDEX 
4139 NEXT. KE REM sus sn NAECHSTE STIMME 
A2® REM. oosuon nun neo una un nen na nn en enm ENDE DER BERECHNUNGEN'! 
4380 POKE 51+5,9: POKE SI+6,10: REM....... HUELLKURVE FUER STIMME 1 


440 POKE S1+12,85: POKE SI+13,133: REM...HUELLKURVE FUER STIMME 2 
450 POKE S1+19,96: POKE SI+28,240: REM...HUELLKURVE FUER STIMME 3 
BEO REM een eng AB HIER WIRD DIE MELODIE GESPIELT 
478 PRINT" 4 FERTIG! " 

488 PRINT"® MOECHTEN SIE DIE MELODIE JETZT HOEREN? (J/N)" 

498 GET Z$: IF Z$="" THEN GOTO 499 

495 IF Z$="N" THEN PRINT"MN DANN KOENNEN SIE MICH DURCHAUS. 2.2..." 
496 IF Z$="N" THEN FOR T=1 TO 2880: NEXT T 

497 IF Z$="N" THEN PRINT"IM ....ANDERWEITIG EINSETZEN!": END 

580 POKE 51+24,31 

51@ FOR I=@ TD IMAX 

515 REN. nenne „LOW-BYTES DER STIMMEN 
520 POKE SI,NF%(8,1): POKESI+7,NFZ(1,D): POKE SI+14,NF7(2,D) 

525 REMenannin HIGH-BYTES 

538 POKE SI+1,HF%2(8,1): POKE SI+8,HF%(1,D: POKE SI+15,HF%(2,D 
535 REM..... WELLENFORMEN 

546 POKE SI+4,WF%(0,D): POKE SI+11,WF%X(1,1): POKE SI+1B,WF%(2,D) 


3o@ FOR T=1 TO 25: NEXT Tz REM. .„veeunurnennnnn ..... WARTESCHLEIFE 
368 NEXT I: REM... „uusuoononnonunsnunenunnennnne NAECHSTE 17/16-NDOTE 
37@ FOR T=1 TO 50: NEXT Tz REM... nen ununnennnunun una WARTESCHLEIFE 
380 POKE 51+24,0: REM. susanne nenn nen = LAUTSTAERKE = ® 


378 PRINT: INPUT" WIEDERHOLUNG (J/N";W$ 
6086 IF W$="J" THEN GOTD 588 
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618 END: REM..... Aunsenneennnnnnnnnennunnnnnenn nenn PROGRAMMENDE! 
768 DATA 268, 284,301,318, 337,358, 379, 401,425, 451,477,506 
BODTREME Le ee AREERR ERS IRSTENOROENN „„.DATEN 1. STIMME 
818 DATA 340,342,599,342, 340,595, 340, 342,587,337,339, 596, 338, 356 
8?@ DATA 587,329, 327,582,327,329,331,329,327,326, 58%, 340, 342,599 
342, 340,595, 340, 342,587,337,339, 596,338, 336,587, 329,327 
848 DATA 582, -256, 322, 1095, 
DOG RE Me a ee .....DATEN STIMME 2 
918 DATA 311,318,564,569,571,569,567, 566,564, 566, 567,569,571,569 
920 DATA 567,571,308,318,311,310, 564,569, 571,569, 567,566, 564,566 
3@ DATA 567,569,578,578,1879,0 
1808 BEN Gr TER TREE “uunu.. DATEN STIMME 3 
1816 DATA 356,358, 615,358, 356, 611,356, 358, 603,353, 355, 612,354 
1926 DATA 352,603, 345,343, 598,343, 345,347, 345,343, 342,596, 356 
1030 DATA 358, 615,358, 356, 611,356, 358, 603,353, 355,612, 354,352 
104@ DATA 603,345, 343,598, -256,338,1106,0 


READY. 
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008 
816 
820 
9350 
848 
945 
850 
855 
868 
865 
870 


Pgurree 


REM .ansunnunnuun ann nsu onen en onen“ sununnnnnn« „DATEN 1. STIMME 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


340, 342,599, 342, 340, 595, 340, 342,587, 337,339, 596,338, 336 
587,329,327,582,327,329,331, 329,327, 326,580, 340, 342,599 
342, 340,595, 340, 342,587, 337,339,596, 338, 336, 587,329, 327 
582, -256, 322, 1995 
331,327,594,329, 336, 587,343, 338,596, 331, 338,592, 331 
329,584, 329,331,592, 331,329, 1609, 338, 329,587, 343, 338 
596,331, 338,592, 345, 340,598, 337,340,594,337, 331,331 

330, -256,331,1611, 347,342, 600, 342, 340, 601,340, 343,598 
349,338, 599,338, 341,596, 345, 340,598, 337, 349,595, 331, -76B 
340, 331,592, 338, 329, 587,336, 327,585, 587, 1895, -512, 2119, 
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a a ne ne DATEN STIMME 2 
311,318, 564,569,571,569,567, 566, 564,566, 567,569, 571,569 
567,571,308,210,311,318,564,569, 571,569, 567,566, 564,566 
567,569,578,578, 1879 
567,566,562,567,571,576,568, 569, 578, 580, 569, 580,569 
313,315, 313,311,566, 578, 567,571,576,568, 569,577,578 
576,571,580, 592,566, 315,314, 315, 321,579,571,580, 578 
577,569,578,576,571,567,576,571,578, 566,827, 320,315, 313 
568, 317,324,582,211,323,589, 310, 321,323, 326,564, 313 
724,571,569,571,571, 1876, 
re SE ee DATEN STIMME 3 
356, 358,615, 358, 356, 611,356, 358, 603, 353, 355, 612,354 
352,603,345, 343,598, 343,345, 347,345, 343, 342,596, 356 
358, 615,358, 356, 611,356, 358, 603, 353, 355, 612, 354, 352 
603,345, 343,598, -256, 338, 1106 
347,343,610,345, 352, 603,359, 354,612, 347,354, 608,347 
345,600, 345,347, 608, 347,345, 1625, 354, 345, 603, 359, 354 
612, 347,354, 608, 361,356, 614,353, 356,610, 353,347,347 
346, -256,347,1627, 363,358, 616, 358, 356, 617,356, 359, 614 
356, 354,615, 354,357, 612,361, 356,614, 353, 356,611,347,-768 
356, 347,608, 354,345, 603,354, 343, 601,663, 1111, -512, 2135, 
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Um einen umfassenden Überblick über die Speicher- 
plätze des Musikchips zu bekommen, sind in der folgen- 
den Übersicht noch einmal alle wichtigen Adressen kurz 
beschrieben. Im Anhang befinden sich weitere Tabellen 
dazu. 


In der Programmsammlung befindet sich (wie schon 
erwähnt) ein Hilfsprogramm zum Musikmachen. (Ein für 
Grafik-Darstellungen sehr nützliches Hilfsprogramm zur 
Erstellung von Sprites findet sich in unserem Buch 
'Grafik auf dem Commodore 64'). Solche Programmier- 
hilfen erleichtern den Umgang mit den besonderen Mög- 
lichkeiten dieses Computers ganz erheblich. 


Die musikalischen Fähigkeiten des Commodore 64 
wurden nur beispielhaft aufgezeigt. Durch eigenes Pro- 
grammieren werden Sie sicherlich noch viele weitere 
musikalische Ideen verwirklichen. | 
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die Musi k- 


Die Anfangsadresse des Musikchips ist SI = 54272, 


1. Stimme 


SI und SI+1 
LOW- und HIGH-Byte für die Frequenzen werden hier 
abgelegt. 


SI+2 und SI+3 
Nur gültig bei der Rechteckschwingung: LOW- und 
HIGH-Byte der Pulsbreite. 


sI+4 

Die Wellenform wird festgelegt. Zur Erinnerung: 17 
= Dreieck, 33 = Sägezahn, 65 = Rechteck, 129 = 
Rauschen. 


SI+5 
Anschlag (Attack) und Abschwellen (Decay). 


SI+6 
Aushalten (Sustain) und Abfallen (Release). 
2. Stimme 


SI+7 und SI +3 
LOW- und HIGH-Byte der Frequenzen. 


S+9 und SI+1O0 
Pulsbreite (für Rechteckschwingung s.o. SI+2). 


SI+11 
wellenform. 


st#12 
Anschlag und Abschwellen. 


SI+13 
Aushalten und Abfallen. 
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3. Stimme 


SI+14 und SI+15 
LOW- und HIGH-Byte der entsprechenden Frequenzen, 


SL+16 .und’SI+T7 
Pulsbreite (für Rechteckschwingung s.o. SI+2). 


SI+18 
wellenform. 


SI+19 
Anschlag und Abschwellen. 


SI+2O 
Aushalten und Abfallen. 


Weitere wichtige Adressen des Musikchips: 


SI+21 und SI+22 
LOW- und HIGH-Byte der Filterfrequenz. 


SI+23 
Filterresonanz. 


SI+24 
Lautstärke und Filter. 


sI+27 
Rauschgenerator. 


SI+28 
Der Inhalt der Hüllkurve 3 kann ausgelesen werden. 
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‘Tips & Tricks 


Eirige Tips und Tricks 


In diesem Kapitel sollen weitere Besonderheiten 
des Commodore 64 behandelt werden. Sie können sich 
ausführlich informieren über 


- die Cursorsteuerung; 


- die Möglichkeit, den Zeichensatz des Computers 
zu ändern, um eigene Zeichen zu definieren; 


- das Verschieben des Bildschirmspeichers; 
- das Verkleinern des BASIC-Speichers und 


- die Benutzung der Funktionstasten. 


Cursorstewuerung 


wollen Sie von einem Programm aus eine Ausgabe an 
eine ganz bestimmte Stelle des Bildschirms bringen, 
werden Sie feststellen, daß dazu die BASIC-Befehle des 
Commodore 64 nicht mehr ausreichen. Leider verfügt 
dieser Rechner nicht, wie die meisten anderen, über 
spezielle Anweisungen, mit denen man die gewünschte 
Zeile und Spalte für eine Bildschirm- bzw. Drucker- 
ausgabe angeben könnte. 


Stattdessen besitzt der Commodore zwei verschie- 
dene Arten der Cursorsteuerung. Die erste kennen Sie ja 
schon. Dabei handelt es sich um den normalen Modus, 
also die Bewegung des Cursors mit Hilfe der Cursor- 
steuertasten über den Bildschirm. 


Sicherlich ist Ihnen auch schon aufgefallen, daß 
diese Art der Cursorbewegung nicht mehr funktioniert, 
wenn Sie vorher ein (bzw. eine ungerade Anzahl von) 
Anführungszeichen getippt haben. Dann erhalten Sie 
nämlich statt der gewünschten Cursorbewegung ein 
(inverses) Grafikzeichen. Jetzt befinden Sie sich im 
zweiten Modus der Cursorsteuerung. Hier wird die Be- 
wegung nicht sofort ausgeführt, sondern sozusagen durch 
dase Grafikzeichen codiert und erst dann ausgeführt, 
wenn die dazugehörige PRINT-Anweisung vom Programm 
ausgeführt wird. 
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Zu diesen Steuerzeichen gehören auch die HOME- und 
CLR-Taste. Sie ergeben - nach einem Anführungszeichen - 
ebenfalls einen Grafik-"Code", 


Um diese Wirkungsweise zu verdeutlichen, probieren 
Sie doch einmal das folgende Beispiel aus: 


18 REM... -onunnann ..nn...... CURSORTSTEUERUNG MIT PRINT-ANWEISUNG 
28 PRINT"T" 

38 PRINT" Mielke] EINS"; 

48 PRINT"IBI ZWEI"5 

3@ PRINT"!TI DREI”; 

66 PRINT"IMENERENBEI VIER" 

78 PRINT" Mai": END 


READY. 


Der Nachteil hierbei ist, daß der Cursor an der 
Stelle stehenbleibt, die er nach der letzten PRINT- 
Anweisung hatte und beim nächsten PRINT-Befehl mit 
Steuerzeichen von dieser Stelle aus weiterbewegt wird, 
d.h. daß bestimmte Bildschirmpositionen nur relativ 
erreicht werden können. 


wollen Sie eine Textausgabe auf jeden Fall z.B. in 
der 5. Zeile beginnen lassen, unabhängig davon, wo sich 
der Cursor vorher befindet, bleibt Ihnen nichts anderes 
übrig, als entweder - durch PRINT" 2 " - den Bildschirm 
zu löschen oder PRINT" 9 "  voranzuschicken. Danach 
steht auf jeden Fall dsr Cursor in der linken oberen 
Ecke des Bildschirms, sodaß Sie nun von da aus 5 Zeilen 
nach unten gehen können (durch PRINT" MIAMI" 1% 


Diesen Umstand kann man vermeiden, wenn man die 
gewünschte Cursorposition mit der POKE-Anweisung direkt 
in die entsprechenden Speicherzellen schreibt; darauf 
kommen wir gleich zu sprechen. 


Zunächst sollte jedoch noch erwähnt werden, daß 
sich, ebenso wie Cursorbewegungen, auch Farbausgaben 
und Ein- bzw. Ausschalten der inversen Darstellung in 
einer PRINT-Anweisung "codieren" lassen. Wollen Sie 


z.B. das Wort "ROT" in rot auf dem Bildschirm er- 
scheinen lassen, lautet die Anweisung dazu: PRINT"SROT" 
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wollen Sie die gleiche Ausgabe invers darstellen, 


heißt die Anweisung: 


PRINT"3#3 ROT =" 


Anschließend finden 


Sie 


eine Liste mit 


den in 


diesem Buch verwendeten Cursor- und Farb-Steuerzeichen. 
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LURSOR-STEUERUNGS-SYMBOLE 


PRINT"STEUERZEICHEN IN EINER PRINT-ANWEISUNG" 


PRINT"! 
PRINT" 
PRINT" 
PRINT" 


PRINT" 
PRINT" 
PRINT"N 
PRINT" 
PRINT"H 
PRINT" 
PRINT"”) 
PRINT" 


PRINT" 
PRINT" 
PRINT"E 
PRINT" 


ELR-HOME-TASTE UND SHIFT 
BILDSCHIRM WIRD GELDESCHT" 
CLR-HOME-TASTE" 

AUSDRUCK BEGINNT LINKS OBEN" 


LURSDR-RECHTS-TASTE" 

AUSDRUCK BEGINNT EINE SPALTE WEITER RECHTS" 
CURSOR-LINKS-TASTE" 

AUSDRUCK BEGINNT EINE SPALTE WEITER LINKS" 
CURSOR-NACH-UNTEN-TASTE" 

AUSDRUCK BEGINNT EINE ZEILE WEITER UNTEN" 
CURSOR-NACH-DBEN-TASTE" 

AUSDRUCK BEGINNT EINE ZEILE WEITER OBEN" 


CTRL- UND 9-TASTE (ZUSAMMEN ’RVS ON?’)" 
AUSDRUCK ERSCHEINT INVERS" 

CTRL- UND 8-TASTE (ZUSAMMEN ’RVS OFF”’)" 
INVERSER AUSDRUCK WIRD WIEDER ABGESCHALTET" 


PRINT"FARBBEFEHLE IN EINEM PRINT-BEFEHL" 


PRINT"ı 
PRINT" 
PRINT"5 
PRINT" 
FRINT"= 
PRINT" 
PRINT" 
PRINT" 


CTRL- UND 4-TASTE” 
AUSDRUCK WIRD TUERKIS" 
ECTRL- UND 4-TASTE" 
AUSDRUCK WIRD GRUEN" 
CTRL- UND 7-TASTE" 
AUSDRUCK WIRD BLAU" 
CTRL- UND 8-TASTE” 
AUSDRUCK WIRD GELB" 
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Bei der zweiten Möglichkeit, eine Ausgabe an einer 
bestimmten Bildschirmstelle zu erzeugen, brauchen Sie 
nicht mehr zu berücksichtigen, wo sich der Cursor be- 
findet. Wir haben in einigen Programmen diese Möglich- 
keit in Form eines Unterprogramms benutzt. So kann man 
sich im Hauptprogramm auf die Angabe der gewünschten 
Zeile und Spalte beschränken. 


Um das Wort "TEXT" z.B win der 6. Spalte der 10. 
Zeile beginnen zu lassen, reicht folgendes Programm: 


10 REMenanneenen DEREN IE TECEREESNENGEN CURSORSTEUERUNG MIT POKE-BEFEHL 
28 PRINT" 

38 CZ=10: [S=& 

40 GOSUB 1988 

58 PRINT"TEXT" 

60 END 

1988 CZ=1024+40*C1 

1018 POKE 2@9,CZAND255: POKE 218,C7/256: POKE 211,05 

1020 RETURN 


Der Wert für CZ in Zeile 1000 entsteht auf folgen- 
de Weise: die Speicherplätze von 1024 bis 2023 beinhal- 
ten den Bildschirmspeicher. Durch 1024 + 40 * CZ wird 
also der Speicherplatz bestimmt, der für den Anfang der 
gewünschten Zeile zuständig ist. Anschließend wird 
dieser Wert für CZ in Low- und High-Byte zerlegt (das 
ist notwendig, da er größer ist als 255 - siehe auch 
Kapitel 9). Danach werden die so ermittelten Zahlen- 
werte mit POKE in die entsprechenden Speicherzellen 
geschrieben, die für die Zeilenposition des Cursors 
zuständig sind. Da der Wert für die Cursorspalte (CS) 
höchstens 39 ist, kann er ohne weitere Umrechnungen 
sofort win die zuständige Speicheradresse 211 gebracht 
werden. 


Dieses Unterprogramm bietet sich dann an, wenn Sie 
innerhalb eines Programms mehrmals die Bildschirm- 
position bestimmen wollen, an der eine Ausgabe beginnen 
soll. Dagegen eignet sich die Methode der Steuerzeichen 
in PRINT-Anweisungen besonders dazu, Abstände zwischen 
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einzelnen Zeichen oder Wörtern bzw. Zahlen zu ver- 
größern oder zu verkleinern. Beide Methoden können 
natürlich auch nebeneinander angewandt werden. Sie 
können also z.B. mit Hilfe des Unterprogramms einen 
Text an einer bestimmten Stelle beginnen lassen und in 
der PRINT-Anweisung durch das entsprechende Steuer- 
zeichen die Farbe bestimmen. 


Änderung des Zeichensatzes 


Der Commodore 64 bietet Ihnen die Möglichkeit, 
sich - zumindest für die Bildschirmausgabe - einen 
eigenen Zeichensatz zu definieren. Sie können einzelne 
Sonderzeichen festlegen, vollständige Zeichensätze für 
andere Sprachen (z.B. griechisch) oder auch Ihre eigene 
Geheimschrift entwickeln. Da der Standardzeichensatz 
des Rechners aus 256 Zeichen besteht, können Sie bei 
Bedarf ebenso viele Zeichen ändern und außerdem noch 
invers erscheinen lassen. 


Allerdings befinden sich die Daten für den Stan- 
dardzeichensatz im ROM-Bereich, sind also gegen direkte 
Änderungsversuche geschützt. Einige wenige BASIC-Anwei- 
sungen genücen aber, um die Werte des ROM-Bereichs in 
einen RAM-Bereich zu übertragen, wo dann beliebige 
Änderungen der Speicherinhalte möglich sind. 


An einem kurzen Beispiel wollen wir Ihnen zunächst 
vorführen, wie ein neues Zeichen auf dem Bildschirm 
aussehen kann. 
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18 REM..... ..onuse rauen ...„ DEFINITION EINES EIGENEN ZEICHENS 
15 PRINT"! 

16 PRINT,"3 BITTE WARTEN " 

2@ REM. ousseneunnen runesnnnennennne ennununenunnnn en VÖRBEREITUNG 
25 POKE 55,6: POKE 56,48: CLR= REM....... BASIC-SPEICHER BEGRENZEN 
3@ FOKE 56334,0: REM... oonounnnnunnunnnnn ..... KEINE UNTERBRECHUNG 
46 FOKE 1,51: REM. .„„oun0onsununnnnunu nn .„ROM-BEREICH EINSCHALTEN 
AS REM. Sms SE een „u... . KOPIEREN STARTEN 
38 FOR 1=>12268 TOD 14335 

68 POKE I,PEEK(53248+1-12288) 

78 NEXT I 

723. BEM.asH a rain Emnunnnnenn .nunsann »„. „KOPIEREN ENDE 
88 POKE 1,55: REM......... ZURUECK ZUM NORMALEN VIDEO-CHIP BETRIEB 
85 POKE 53272,28: REM... „ouuoncnunnn „.....NEUE ADRESSE ZEICHENSATZ 
98 POKE 56334,12 REM. ..onnunnnnnnnn « UNTERBRECHUNG WIEDER MOEGLICH 


18@ PRINT" 
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PRINT" A WIRD ZU ALPHA" 


110 REM = a za a m 0 a a a a a 2 EEE EEE ERNST LEUTEN GERNE SWEET © Sc AENDERN 


115 
128 
1358 
140 
145 
150 


FOR I=12288+8 TOD 12288+15 
READ Q 


REM. anna. eirare EETERIR RER EFEIRIE Sanunuuunnnennenn «DATEN ALPHA 
DATA 0,0,59, 206, 198, 206,59, 0 


READY. 


wie Sie vielleicht schon erkannt haben, findet 


hier in Zeile 50 bis 70 das Kopieren des Zeichensatzes 


vom ROM- in den RAM-Bereich statt. 
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Um dieses Kopieren zu ermöglichen, sind jedoch 
noch einige Vorbereitungen nötig. Die Daten für den 
Zeichensatz liegen im ROM-Bereich an den Adressen 53248 
bis 55295. Diese Speicheradressen kommen Ihnen viel- 
leicht aus dem Grafik-Kapitel bekannt vor. Tatsächlich 
werden diese Speicher z.B. für Sprites und hochauf- 
lösende Grafik benutzt. Wieso können an denselben Stel- 
len Daten für Buchstaben und Zahlen stehen? Die Erklä- 
rung dafür ist einfach. 


Parallel zu dem Speicherbereich, der für die 
Grafik zuständig ist, gibt es - mit denselben Speicher- 
adressen =.ieinen. ‚weiteren: 'ROM-Bereich, Zn dem: ‚die 


Zeichendaten stehen. Zu diesem Speicherbereich haben 
Sie als Benutzer normalerweise überhaupt keine Zu- 
griffsmöglichkeit, auch nicht zum Lesen. Einzig und 
allein der Video-Chip, der ganz allgemein für die Dar- 
stellung von Zeichen, sei es Grafik, Sprites oder Buch- 
staben, zuständig ist, kann auf diesen ROM-Bereich 
zugreifen und "lesen", aus welchen Daten z.B. Buch- 
staben und Zahlen zusammenzusetzen sind. 


wollen Sie nun eigene Zeichen definieren, müssen 
Sie an die Speicher des Zeichengenerators herankommen. 
In diesem Fall wird der normale Betrieb des Video-Chips 
"aus"- und der ROM-Bereich des Zeichengenerators "ein- 
geschaltet". Das geschieht durch die Anweisung: POKE 
1,51. Da aber nach diesem Befehl der Video-Chip keine 
Kontrollmöglichkeiten über die Ein- und Ausgabe von 
Zeichen und rechnerinternen Programmunterbrechungen 
mehr hat (was zu seiner "normalen" Aufgabe gehört), 
dürfen Unterbrechungen —- z.B. von der Tastatur her - 
nicht mehr möglich sein. Das wird - vor dem Einschalten 
des ROM-Bereichs - sichergestellt durch: POKE 56334,0. 


Erst nach diesen Vorbereitungen können die Zei- 
chensatzdaten in einen RAM-Bereich des Rechners kopiert 
werden. 


Anschließend muß der normale Betrieb wiederherge- 
stellt werden: 


POKE. 1,95 stellt den bereits bekannten Modus 
des Video-Chips wieder her, und 


POKE 56334, 1 ermöglicht wieder die Eingabe über 
die Tastatur. 
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Zusätzlich dürfen Sie nicht vergessen, dem Video- 
Chip mitzuteilen, daß er ab sofort die Daten für Bild- 
schirmzeichen aus dem kopierten (und geänderten) RAM- 
Bereich holen muß, statt aus dem üblichen Zeichengene- 
rator. Dazu dient die Anweisung: POKE 53272,28. 


Falls Sie Ihren eigenen Zeichensatz an einer 
anderen Speicheradresse als 12288 (wie in unserem 
Beispiel) beginnen lassen wollen, geben wir Ihnen hier 
die verschiedenen Möglichkeiten an: 


POKE-Wert Anfangsadresse des 
für 53272 Zeichensatzes 

20 4096 

22 6144 

24 8192 

26 10240 

28 12288 

30 14336 


Anordnung der Zeichen im ROM-Bereich 


Anfangsadresse Zeichen 
53248 Großbuchstaben 
53700 Commodore-Grafik-Zeichen 
54272 Inverse Großbuchstaben 
54784 Inverse Grafikzeichen 
55296 Kleinbuchstaben 
55808 Großbuchstaben und Grafikzeichen 
90820 Inverse Kleinbuchstaben 
56832 Inverse Großbuchstaben und Grafik- 
zeichen 
Damit sind (endlich!) alle Vorbereitungen abge- 
schlossen, und Sie können mit dem Verändern der Daten 
beginnen. 


Jedes einzelne Zeichen besteht aus 8 Datenwerten. 
Die POKE-werte der Zeichen (vgl. Commodore-Handbuch, S. 
133 ff.) entsprechen der Stellung des Zeichens inner- 
halb eines Zeichensatzes. Um z.B. ein "A" darzustellen, 
werden also die Datenwerte von der 9. bis 15. Stelle 
benötigt. 
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Diese Datenwerte errechnen sich ähnlich wie z.B. 
Sprites-Daten. Jedes Zeichen wird in einem Raster von 
8x8 Punkten dargestellt: 


wieder werden die Spalten von 
links nach rechts mit den Zahlen 
128,64,32,16,8,4,2,1 versehen und 
je Zeile die Werte über einer 
Spalte aufaddiert. Für das "iA" 
erhält man also die Datenwerte: 


24 
60 
102 
126 
102 
102 
102 
0) 


Um ein eigenes Zeichen zu definieren, müssen Sie 
es also auch zunächst in ein solches Raster zeichnen 
und die dazugehörigen Datenwerte ausrechnen. Dann 
können Sie die neuen Daten an die Stellen desjenigen 
alten Zeichens schreiben, das Sie durch das neue, 
selbstdefinierte ersetzen wollen. Das passiert im vori- 
gen Beispiel in den Zeilen 110 bis 140. 


Das nächste Programm ermöglicht Ihnen die Erzeu- 
gung eines eigenen Zeichensatzes direkt am Bildschirm 
und ohne die umständliche Rechnerei. 
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38 REM. .„„onuscusunus nnuonsunnonnnucne esuenunne cn. ZEICHENGENERATOR 
75 PRINT, "aM ZEICHENGENERATOR " 


180 
120 


PRINT"7": PRINT"MM MIT DIESEM PROGRAMM KOENNEN SIE EINEN "3 
PRINT" EIGENEN ZEICHENSATZ ERSTELLEN. ": PRINT 

PRINT" NACH EINER KURZEN RECHENZEIT ERSCHEINT EIN RAHMEN, "3 
PRINT" IN DEM DAS ZEICHEN GEAEN- DERT WERDEN KANN.": PRINT 
PRINT" DURCH DRUECKEN DER ENTSPRECHENDEN TASTE "35 

PRINT"WIRD DER BUCHSTABE DARGESTELLT UND SIE"5 

PRINT" KOENNEN AENDERUNGEN VORNEHMEN. " | 

PRINT" DAS PROGRAMM IST BEENDET, WENN SIE" 

PRINT" STATT EINES ZU AENDERNDEN ZEICHENS NUR" 

PRINT" "RETURN? DRUECKEN. " 

PRINT"M (WEITER MIT TASTENDRUCK) " 

GET At: IF A$="" THEN G0TD 310 

PRINT"W 3 ZEICHENGENERATOR „ 

PRINT"M BITTE ETWAS WARTEN!" | 
REM» 2ueaaneauneunnun. ZEICHENSATZ IN DEN RAM-BEREICH KOPIEREN 
POKE 55,8: POKE 56,48: CLR 

POKE 56334, 0 

POKE 1,51 

FOR I=® TO 2847: 

POKE 12288+1,PEEK (55296+1) 


NEXT I 

POKE 1,35: POKE 53272,28 : POKE 56334,1 

REM. „uoassunenaunne DARSTELLUNG DER ZEICHEN AUF DEM BILDSCHIRM 
PRINT" IT" 

REM. „.oraoanonan SC nnuunannnnanene Denunusuuneune „munnncn.. RAHMEN 


FOR 1=1025 TO 1032 

POKE 1,180: POKE 54272+1,14 

NEXTI 

FOR I=@T0 7 

POKE 1@64+1#40,103: POKE 1073+1*40,101: POKE 55336+1#49, 14 
POKE 55345+1#40, 14 

NEXT I 
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520 FOR 1=1385 TO 1392 

576 FOKE 1,99: POKE 1+54272,14 
540 NEXT I 

558 FOR I=® TO 7 

560 FOR J=@ TO 7 

578 POKE 1065+1#40+J,32 


388 NEXT J 

378 FRINT"=ZERRBRRBERREBBI = 

688 NEXT I 

618 REM....... .nun.n .......WELCHES ZEICHEN SOLL GEAENDERT WERDEN? 
620 PRINT"SITREBRRABERBRI = 


638 PRINT" :SIEIMIRIKISINIRIRINTEN" 5 
648 PRINT"WELCHES ZEICHEN SOLL GEAENDERT WERDEN?" 
658 GET At: IF A$="" THEN GOTO 5598 


Ab8 REM... nunnonnunsen een ee "RETURN” GEDRUECKT -> ENDE! 
678 IF ASC(A$)=13 THEN GOTO 980 
680 PRINT" SIHININIKTEIKISTRIEIN ü 


698 PRINT"="5A$: A=PEEK (1024) 

788 FOR I=® TO 7 

718 Z=PEEK (12288+8*A+]) 

720 REM. oeunuenasuunnunn .. „DARSTELLUNG DES ZU AENDERNDEN ZEICHENS 
738 IF Z>=128 THEN POKE 1865+1#48,81: POKE 55337+1#40,14: Z=2-128 
740 IF Z>=64 THEN FOKE 1044+1*40,81: POKE 55338+1#40,14: Z=2-64 
758 IF Z>=32 THEN POKE 1867+1#40,81: POKE 55339+1#40,14: Z=2-32 
76@ IF Z>=16 THEN FOKE 10548+1#40,81: POKE 55340+1%#40,14: Z=Z-16 
778 IF Z>=B THEN POKE 1869+1*480,81: FOKE 55341+1%#40,14: Z=2-8 

788 IF Z>=4 THEN POKE 1970+1*40,81: POKE 55342+1%40,14: Z=2-4 

796 IF Z>=2 THEN FOKE 1871+1#40,81: POKE 553453+1#48,14: Z=1-2 

868 IF Z>=1 THEN POKE 1972+1*40,81: POKE 55344+1#40,14: Z=1-1 

818 NEXT 
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820 
8350 
840 
850 
868 
870 
880 
898 
708 
918 
926 
730 
948 
950 
968 
978 
980 
798 


PRINT"IPRRBRBRBRERI";: INPUT"BITTE AENDERN....";B$ 

EX=8 

FOR I=6 TO 7 

POKE 12288+B+B+A+1,® 

NEXT I 

FOR I=6 TO 7 

AA=1065+1*40 

FOR J=® 10 7 

IF PEEK{AA+J) <> 32 THEN EX=EX+2t (7-9) 

NEXT J 

FEN ee re HIER WIRD DAS GEAENDERTE ZEICHEN GESPEICHERT 
POKE 12288+8%*A+1,EX 

EX=® 

NEXT I 

REM ee ZURUECK ZUM ANFANG (NAECHSTES ZEICHEN) 
GOTO 556 

PRINT" SIKINIsIsInInIsIsIeTeieteist! DER NEUE ZEICHENSATZ IST ABGESCHLOSSEN!" 
END 


1000 END 


READY. 
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Verschieben des Bildschirm- 

speichers 

wollen Sie auf Ihrem Commodore 64 Programme 
einsetzen, die für andere Commodore-Computer geschrie- 
ben worden sind, müssen Sie z.B. die POKE-Adressen 


angleichen. 


Für die Bildschirmspeicherplätze bietet der Com- 
modore 64 eine einfache Lösung: Der gesamte Bildschirm- 
speicher läßt sich an eine andere Adresse verschieben. 
Dazu werden nur zwei Speicherplätze benötigt. Der erste 
ist der Speicher 53272. Die oberen 4 Bits (das obere 
Nibble) sind zuständig für den Platz des Bildschirm- 
speichers. Die unteren Bits dieses Speichers bestimmen, 
welcher Zeichensatz benutzt wird. Wollen Sie also den 
Bildschirmspeicher verschieben, müssen Sie darauf ach- 
ten, das untere Nibble der Adresse 53272 nicht zu 
beeinflussen! Das können Sie sicherstellen durch eine 
AND/OR-Verknüpfung (vergl. auch Kapitel 9). 


Geben Sie dazu folgende Anweisung: 

POKRE.:53272;,. (PEER(532723. AND: 19) -0R7X 

Die möglichen Werte für x und die zugehörigen 
Adressen des Bildschirmspeichers entnehmen Sie bitte 
der Tabelle. | 

Als nächstes müssen Sie dem Speicher, der für die 
Bildschirmdarstellung zuständig ist, mitteilen, daß der 
Bildschirmspeicher verschoben wurde. Das geschieht mit 
der Anweisung 


POKE 648,Y 


Dabei ist Y die zu X gehörende Adresse (Ss, Tabelle) 
dividiert durch 256. 


12394 


Anfang des Bildschirm- x Y 
speichers bei 


1024 16 4 

2048 32 8 
3072 48 12 
4096 64 16 
5120 80 20 
6144 96 24 
7168 1.12 28 
8192 128 32 
9216 144 36 
10240 160 40 
11264 176 44 
12288 192 48 
13312 208 52 
14336 224 06 
19360 240 60 


Ein Beispiel zum Ausprobieren: 


Der Bildschirmspeicher soll bei Adresse 2048 
beginnen. Also müssen folgende Anweisungen gegeben 
werden: 


POKE 53272, (PEEK(53272) AND 15) OR 32 
POKE 648,8 


Daß der Bildschirmspeicher tatsächlich verschoben 
wurde, können Sie leicht überprüfen: 


Nach den Befehlen: 


POKE 2048,81 (neuer Anfang des Bildschirn- 
speichers) 
POKE 55296,7 (Anfang des Farbspeichers) 


sehen Sie einen gelben Kreis in der linken oberen Ecke. 
Außerdem erkennen Sie hier, daß der Farbspeicher nicht 
verschoben wird; er bleibt immer an derselben Stelle. 
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nern des B’A.S.T GG -# 
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wenn Sie die vorangegangenen Kapitel aufmerksam 
gelesen haben, ist Ihnen vielleicht aufgefallen, daß 
die Speicherplätze, die für die hochauflösende Grafik 
benutzt werden (8192 - 16383), mitten im BASIC-Speicher 
liegen (2048 - 40959), in dem sich auch Ihre Programme 
befinden. 


Wenn Sie nun längere Programme schreiben, in denen 
Sie auch die hochauflösende Grafik benutzen, werden Sie 
feststellen, daß sich ein Programm, das mehr als6 K 
Bytes Platz braucht, nicht mit der Grafik "verträgt". 


Durch die für die Grafik notwendige Anweisung: 
FOR -E =:8192 T0:1638337 "POKE TO: NEXT I 


werden dann Programmteile gelöscht, die an diesen Stel- 
len stehen. 


Es gibt jedoch zwei Möglichkeiten, den BASIC- 
Speicher einzuschränken: Sie können die untere und/oder 
die obere Grenze selbst bestimmen. In dem Fall eines 
langen Programms mit hochauflösender Grafik bietet es 
sich an, den Anfang des BASIC-Speichers hinter den 
Grafik-Bereich, also auf 16384, zu legen. Dann haben 
Sie für Ihr Programm wesentlich mehr Platz zur Ver- 
fügung, ohne mit der Grafik in Konflikt zu geraten, 


Die obere Grenze des BASIC-Speichers herunter- 


zusetzen kann z.B. dann notwendig sein, wenn Sie 
Maschinenprogramme ablegen wollen, und der Platz im 
Kassettenpuffer oder in dem RAM-Bereich, der für 


Maschinenprogramme frei ist, nicht ausreicht. Legen Sie 
Maschinenprogramme im BASIC-Speicher ab, müssen Sie 
durch Heruntersetzen der BASIC-Grenze sicherstellen, 
daß diese Programme vom BASIC nicht berührt und ver- 
ändert werden können. 


wie verändert man aber diese Grenzen? 
Die Adresse für den Anfang des BASIC-Speichers 


steht in den Speicherplätzen 43 und 44, die Adresse für 
das Ende in den Plätzen 55 und 56. 
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Die Speicher 44 und 56 sind dabei jeweils für das 
höherwertige Byte (HB) zuständig, 43 und 55 für das 
niederwertige (NB) (vgl. auch Kapitel 9). 


Die Berechnung geschieht wie folgt: Nehmen wir an, 
daß X die neue Anfangs- (oder End-) adresse für den 
BASIC-Speicher werden soll. Dann ist 


HB 
NB 


INT(X/256) und 
X - HB * 256 


Um die Anfangsadresse zu verändern, brauchen Sie 
die Anweisungen: 


POKE 44,HB: POKE 43,NB: POKE X-1,0: NEW 


POKE X-1,0 ist notwendig, weil dadurch etwaige 
Maschinenroutinen, die im Bereich vor dem neuen BASIC- 
Speicher-Anfang liegen, einen Speicherplatz vor dem 
BASIC-Speicher zum Abbruch gezwungen werden und damit 
Ihr Programm nicht verändern können. Den NEW-Befehl 
brauchen Sie, um alle notwendigen Zeiger im Speicher 
richtig zu setzen. 


Die obere BASIC-Speichergrenze wird verändert durch 
POKE'53,NB* POKE 96,HBr CLR 


Durch den CLR-Befehl werden alle etwa noch vorhan- 
denen Variablen gelöscht. Lassen Sie ihn weg, erhalten 
Sie unter Umständen vöLlig falsche Variablenwerte in 
Ihrem Programm. 


Sr u Br a ee der Funktions- 
tasten 

Die vier neben der normalen Tastatur befindlichen 
Funktionstasten können von Ihnen bis zu acht verschie- 
dene Aufgaben zugewiesen bekommen, die dann während 


eines Programmlaufs auf Tastendruck ausgeführt werden. 


Das Prinzip ist einfach: Jeder Funktionstaste (F1 
bis F8) entspricht ein ASC-Wert (der Tabelle im Commo- 
dore-Handbuch zu entnehmen). An geeigneter Stelle im 
Programm lassen Sie abfragen, ob z.B. die Taste F1 
gedrückt wurde. Wenn dies der Fall ist, soll die ent- 
sprechende Funktion ausgeführt werden. 


ION.- 


Im folgenden Beispiel werden die Zahlen von 1 bis 
20 auf dem Bildschirm ausgegeben. Nach jeder Zahl war- 
tet das Programm, bis eine Taste gedrückt wird. Ist 
diese Taste Fi, wird hinter der Zahl deren Quadrat aus- 
gegeben. Anschließend erwartet das Programm wieder 
einen Tastendruck. Drücken Sie nun F3, erhalten Sie 
noch die Wurzel aus der Zahl. Wählen Sie andere Tasten 
als Fi und F3, wird die nächste Zahl angezeigt. 


10 REM. „anonanununnunn nennen nnnnn «EINSATZ DER FUNKTIONSTASTEN 
28 PRINT " X"; TAB(IO) 5 "XRX"5 TAB(20) 5; "SORIX)" 
38 FOR I=1 TO 20 

48 PRINT I; 

38 GET A$ 

68 IF A$="" THEN GOTD 59 

78 IF ASCtA$I=133 THEN PRINT TAB(N51#1; 

80 GET Z$ 

98 IF Z$="" THEN GOTO 89 

108 IF ASC{Z$)=134 THEN PRINT TAB(1N5SOR(D5 
118 PRINT 

128 NEXT I 

130 END 


READY. 


Natürlich können die Aufgaben, die durch die 
Funktionstasten Fi bis F8 ausgeführt werden sollen, 
auch weitaus komplexer sein. Komplizierte mathematische 
Funktionen können z.B. zu Beginn Ihres Programms durch 
DEF FN definiert werden. Oder aber Sie lassen Ihr 
Programm auf Tastendruck ganze Unterprogramme ausführen 
USW. 
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Theorie 


Etwas Theorie 


BE, Byte U. 20 Ni bb Le 


Im Kapitel Über die Speicheraufteilung des Com- 
puters haben Sie bereits erfahren, daß Sie vielen 
Speicherplätzen des Computers direkt bestimmte Werte 
zuweisen können (durch POKE). Von diesem BASIC-Befehl, 
der den angesprochenen Speicherplatz veranlaßt, seine 
spezielle Aufgabe auf eine ganz bestimmte Art und Weise 
auszuführen, wurde in den Grafik- und Musikkapiteln 
auch häufig Gebrauch gemacht. Um diesen Befehl jedoch 
effektiver anwenden zu können, sollten Sie noch genauer 
über die interne Organisation des Rechners Bescheid 
wissen, 


Die Speicherplätze sind nämlich nicht die klein- 


sten Einheiten im Computer. Jeder Speicher ist noch 
einmal unterteilt in 8 Einheiten, die "bits" genannt 
werden. Diese Bits haben eine festgelegte Reihenfolge 
(Bit O bis Bit 7) und bilden zusammen ein "Byte". Das 
entspricht also wieder einem Speicherplatz des Rech- 
ners, den Sie sich damit folgendermaßen vorstellen 
können: 
1: 0529, EB HD Bit-Nr. 


Speicheradresse (z.B. 54272) 


Außer Bit und Byte werden Sie vielleicht ab und zu 
noch auf einen dritten Fachausdruck stoßen: "Nibble'. 
Ein Nibble bezeichnet die Hälfte eines Bytes. 


wir können also zusammenfassen: 4 Bits ergeben ein 
Nibble, 2 Nibble bilden ein Byte (= 1 Speicherplatz) 
und aus 65536 Bytes setzt sich der gesamte Speicher 
Ihres Commodore 64 zusammen. 


Nun aber zurück zu den Bits: 


Die einzelnen Bits eines Speicherplatzes können 
"gesetzt" oder "nicht gesetzt", bzw. "ein-" oder "aus- 
geschaltet" sein. Die verschiedenen Möglichkeiten, 
"gesetzte" und "nicht gesetzte" Bits einer Speicher- 
zelle zu kombinieren, geben dem Computer an, wie im 
konkreten Fall die Aufgabe eines Speicherplatzes auszu- 
führen ist. 
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Sie erinnern sich wahrscheinlich, daß genau zu 
diesem Zweck der POKE-Befehl benutzt wurde. Dennoch 
haben wir bei einer POKE-Anweisung dem Computer keines- 
wegs gesagt: "In Speicher Nr. 54272 setze Bit O, setze 
nicht Bit 1, setze Bit 2, ... "2. Wo besteht da ein 
Zusammenhang? Mit den POKE-Befehlen werden Dezimal- 
zahlen in die Speicher geschrieben. Diese Zahlen muß 
der Computer umrechnen, um zu wissen, welche Bits 
"ein'"- bzw. "ausgeschaltet" sind, denn nur zwischen 
diesen beiden Zuständen von Bits kann er unterscheiden. 
Darum benutzt man zur Beschreibung dieser Vorgänge das 
duale (oder binäre) Zahlensystem. 


Das Binär-System 


Das duale oder binäre Zahlensystem benutzt nur die 
Ziffern O und 1 (das entspricht also genau den Zustän- 
den eines Bits, die der Computer unterscheiden kann; 
dabei steht O für "aus-" und 1 für "eingeschaltet'"). 


Genau wie im Dezimalsytem bestimmt auch im Dual- 
system die Stelle innerhalb einer Zahl den Wert einer 
Ziffer (z.B. dezimal 296 = 1*6 + 10%9 + 100%2). 


Im Dezimalsystem werden die Ziffern entsprechend 
ihrer Position in der Zahl mit Potenzen von 10 multi- 
pliziert (dabei geht man von rechts nach links vor!): 
1070 = 1, 1071 = 10, 1072 = 100 usw. 


Im Dualsystem werden stattdessen Potenzen von 2 
verwendet: 2T0 = 1, 2T1 = 2, 22 = 4, 273 = 8 usw. Die 
Dualzahl 1011 wird also folgendermaßen in eine Dezimal- 
zahl umgerechnet: 


1011 1*2T0 + 1*2T1 + 0*2T2 + 1*2T3 


= 1% + 1%*2 + 0%4 + 1%8 
= 73 
Da ein Speicherplatz des Computers aus 8 Bits 
besteht, die alle den Wert O oder 1 haben können, ist 
der kleinste Wert, den ein Speicher aufnehmen kann: 
00000000 (dual) = O (kein Bit gesetzt), 


und der größte: 
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an 


1 Dr I DD u BE re LE = ei “2 *x271 + 1*2T2 + 1*2T3 
*2 *275 + 1*276 + 1%2T7 


0: + 
"a + 
(alle Bits gesetzt). 


4 
A 
1 


HK + MN 
DD —ı — 


Ss a 

Das ist also die Erklärung dafür, daß in keinen 
Speicher ein Wert geschrieben werden kann, der größer 
als "2599. ISE,; 


Außerdem können Sie sich nun das Sprite-Entwurfs- 
blatt im Anhang als Gruppe von Bits vorstellen, die die 
Werte O oder 1 annehmen. Die Einteilung jeder Zeile in 
drei Gruppen zu je 8 Kästchen ist also deshalb notwen- 
dig, weil jedes Datenbyte aus genau 8 Bits besteht. 
Beim Addieren der Werte der ausgefüllten Kästchen haben 
Sie also schon Dualzahlen in Dezimalzahlen umgerechnet. 


High- und Low-Byte 
Was passiert nun aber, wenn Datenwerte größer als 
255 sind, sich also nicht in einem Byte unterbringen 


lassen? In der Tabelle für die Notenwerte (im Anhang) 
z.B. beginnen die Frequenzen der Töne erst bei 268. In 
diesen Fällen werden zwei Speicherplätze benötigt. Der 
Datenwert (W) muß also in zwei Werte (High- und Low- 
Byte) zerlegt werden, die sich folgendermaßen be- 
rechnen: 


High-Byte: HB INT(W/256) 
Low-Byte: LB = W - 256*HB 


Das entspricht einer ganzzahligen Division mit 
Rest. Wollen Sie z.B. die Frequenz für C-5 (= 8583) in 
High- und Low-Byte zerlegen, rechnen Sie so: 


8583/256 = 33 Rest 135 


33 ist dann der Wert des High-Bytes und der Rest, 
135, der Wert des Low-Bytes. 


Diese Werte werden dann mit POKE entsprechend in 
die für High- und Low-Byte vorgesehenen Speicherstellen 
geschrieben. 


Außerdem gibt es noch den Fall, daß nicht zwei 
Speicherstellen für eine Aufgabe, sondern ein Speicher 
gleich für zwei Aufgaben zuständig ist (jedes Nibble 
also eine andere Funktion hat). Das ist z.B. bei dem 
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Musikspeicher SI+24 (= 54296) der Fall, bei dem die 
Bits O bis 3 für die Lautstärke und die restlichen Bits 
für die Filtereinstellung sorgen. Aber auch bei den 
Sprites-Speichern, z.B. vV+21, (= 53269) hat jedes Bit 
eine bestimmte Aufgabe. In diesen Fällen ist es notwen- 
dig, ganz bestimmte Bits "ein-" oder "auszuschalten". 
Das kann natürlich einmal dadurch geschehen, daß Sie 
die benötigten Dezimalzahlen ausrechnen. Wollen Sie 
aber, z.B. während eines Programmlaufs, in einer Spei- 
cherstelle ein Bit ändern, ohne die anderen zu beein- 
flussen, bietet sich eine andere Methode an, die Ver- 
knüpfung zweier Zahlen mit AND oder OR. 


Bei beiden Verknüpfungen vergleicht der Computer 
die verknüpften Zahlen bitweise und errechnet aus dem 
Vergleich ein Ergebnis. 


Sind zwei Zahlen durch AND verknüpft, wird ein Bit 
der Ergebniszahl nur dann "eingeschaltet" (=1), wenn 
beide entsprechenden Bits in den verknüpften Zahlen = 1 
sind. Ist nur eines der beiden Bits der verknüpften 
Zahlen = OÖ, wird auch das Ergebnisbit = ©. 


Beispiel: 141 AND 219 
1 0..0::9: EHE 203 141 

AND 
1 7 °0-% 17% 8 219 
10001171 %17 37 


Die AND-Verknüpfung wirkt also wie ein Filter, der 
nur die Bits übrigläßt, die in den verknüpften Zahlen 
beide = 1 sind. 


Die OR-Verknüpfung dagegen setzt im Ergebnis ein 


Bit = 1, wenn mindestens eins der entsprechenden Bits 
in den verknüpften Zahlen = 1 ist. Hier wird das Er- 
gebnisbit nur dann O, wenn alle entsprechenden Bits = O 
sind. 

Beispiel: 141 OR 219 

1.0.0.9: 17073 147 

OR 
+. Eee 219 
a ae > Dr u 223 
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Entsprechend den unterschiedlichen Auswirkungen 
der AND- bzw. DOR-Verknüpfung bieten sich in Verbindung 
mit dem POKE-Befehl zwei völlig verschiedene Einsatz- 
möglichkeiten an: 


1. Sie wollen den Wert (den Sie aber vorher nicht 
berechnen können oder wollen) des Speichers X so 
ändern, daß Bit Nr. 2 auf jeden Fall "ausgeschaltet" 
ist. 


Bit Nr. 2 (Dezimalwert = 4) können Sie "ausschal- 
ten" durch eine AND-Verknüpfung mit 251 (= 255 - 4). In 
251 sind alle Bits gesetzt, außer eben Bit Nr. 2. 


Die vollständige Anweisung lautet dann also: 


POKE X, PEEK(X) AND 251. 


2. Wollen Sie aber genau im Gegenteil sicher- 
stellen, daß Bit Nr. 2 "eingeschaltet" ist, wählen Sie 
die OR-Verknüpfung und geben die Anweisung: 


POKE :%5: PEEK(A) OR 4; 


Dadurch behalten die ursprünglich gesetzten Bits 
ihre Werte (O oder 1) und Bit Nr. 2 wird auf jeden Fall 
gleich 1. 


Das Hexadezimal-System 


Häufig wird in Programmierhandbüchern noch ein 
weiteres Zahlensystem verwendet, das Hexadezimalsystem. 
Im Commodore-Handbuch stehen z.B. in der Speicher- 
belegungstabelle als erste Angaben die Speicheradressen 
im Hexadezimalsystem (Hex-Code). 


Dies ist ein Zahlen-System, das auf 16 (hexa- 
dezimal = 16) verschiedenen Zahlzeichen aufgebaut ist. 
wie im Dezimal-System gibt es die Ziffern O bis 9. 
Hinzu kommen die Buchstaben A bis F, die als Zahl- 
zeichen den (dezimalen) Werten von 10 bis 15 ent- 
sprechen. Wieder bestimmt die Stelle innerhalb einer 
Zahl den Wert der Ziffer, nur muß man jetzt mit Poten- 
zen von 16 rechnen: 
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AYOF = 15 * 1610 + O * 1611 + 9 * 1612 + 10 * 1613 
(F) (A) 
43279 (dezimal). 


In diesem System lassen sich also mit nur 4 Stel- 
len recht große Zahlen darstellen. Für die Dezimal- 
zahlen von O bis 255, für die man ja im Dual-System bis 
zu 8 Stellen braucht, reichen hier zwei Stellen aus: 
255 (dezimal) = FF (hexadezimal). Die größte mit 4 
Stellen darstellbare Zahl im Hexadezimal-System (also: 
FFFF) ist übrigens 65535 - das entspricht 64K, der 
gesamten Speicherkapazität des Commodore 64. D.h. daß 
man mit einer 4-stelligen Hexadezimal-Zahl sämtliche 
Adressen (Speicherplätze) des Computers benennen kann. 


Die folgende Tabelle enthält die Zahlen von O bis 
32 in dezimaler, binärer und hexadezimaler Darstellung: 
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Dezimal 


OONSNOTOITPWMW-O 


Binär 


10 

11 
100 
101 
110 
1119 
1000 
1001 
1010 
011 
1100 
13707 
1110 
174313 
10000 
10001 
10010 
10011 
19108 
197101 
107109 
10111 
11000 
11001 
11010 
11011 
11100 
11401 
11110 
1171719 


100000 


17a 


Hexadezimal 


nNmDOUDDPOO NOT PRWM-O 


10 


‘Programmsammlung 


PFrogrammsammlurg 


17 


Digitaluhr 


Eine einfache Möglicheit, die genaue Uhrzeit auf 
dem Bildschirm anzuzeigen, bietet die "eingebaute" 
Funktion TI$. 


Im folgenden Programm sind die Ziffern für eine 
Digitaluhr aus Commodore-Zeichen zusammengesetzt und in 
DATA-Zeilen ablgelegt worden. Nach dem Programmstart 
werden diese Werte Feldvariablen zugewiesen. 


Nun können Sie die Anfangszeit eingeben, die der 
Variablen TI$ zugewiesen wird. Das Programm läuft so 
ab, daß nach dem Vergleich mit dem jeweiligen Wert von 
TI$ an den entsprechenden Bildschirmplätzen die Ziffern 
der Digitaluhr ausgegeben werden. 
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18 REM. ouuuenuuunene een enunenuunennnnnn.. DIGITALUHR 
15 PRINT" 3 DIGITALUHR . 

2@ PRINT "Mm BITTE EINEN AUGENBLICK WARTEN!" 

25 DIM A%(9,34) | 

30 REM. „uo-euuuunune Boronsunnnnunne u nunasae .„.„„EINLESEN DER DATEN 
48 FOR J=@ TO 9 

3® FOR I=8 TO 34 

6@ READ ZA 


AZ(J, D=7% 


80 NEXT I 
98 NEXT J 


REM. oossenununune nun nun nun en un ne .nonsuenuna „.STELLEN DER UHR 
PRINT"SIMM ANFANGSZEIT IN DER FORM HHMMSS EINGEBEN" 

INPUT Z$ 

IF LEN(Z$)>& THEN PRINT "FALSCHE EINGABE'!":GOTO 118 

IF VAL{(LEFT$(Z$,2)) >24 THEN PRINT "FALSCHE EINGABE!":G0TD 119 
T1$=1$ 

PRINT"!T" 

POKE 53281,1: POKE 53280,1 

REM. onunonn .ununsnenununenunnnnn nen. BILDSCHIRMSPEICHERPLAETZE 
H1%4=1385 

H2%=1391 

POKE 1637, 224 

M1%X=1399 

M2%4=1485 

POKE 1651, 224 

514=1413 

52%4=1419 
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DAS REM nennen ennnnnn BEER RENNEN ER: BEN EREFTELIIERGEN .. „ANFANGSZEIT 
259 F=VAL{LEFT$(TI$,1)): V=F: Al=Hi%: H%=F: GOSUB 580 

255 E=VAL(MID$(TI$,2,1)): V=E: AW=H2%: HH%=E: GOSUB 508 

260 D=VAL(MID$(TI$,3,1)): V=D: AW=Mi%: M%=D: GOSUB 590 

265 C=VAL(MID$(TI$,4,1)): V=C: Al=M2%: MM%=C: GOSUB 590 

278 B=VAL(MID$(TI$,5,1)): V=B: AW=Si%: S%=B: GOSUB 508 

275 A=VAL(RIGHT$(TI$,1))z V=Az Al=82%: 55%=A: GOSUB 500 

280: REN Sy seiner TUR IR TERNENTEE LAUFENDE UHR 
285 A=VAL (RIGHT$(TI$,1)): B=VAL(MID$(TI$,5,1)) 

298 C=VAL(MID$(TI$,4,1)): D=VAL(MID$(TI$,3,1)) 

295 E=VAL(MID$(TI$,2,1)): F=VAL(LEFT$(TI$,1)) 

308 IF SS%<>A THEN V=A: AW=52%: SS5%=A: GOSUB 500 

365 IF S%{>B THEN V=B: AW=S1%: S%=B: GOSUB 598 

318 IF MM%{>C THEN V=C: AW=M2%: MM%=C: GOSUB 588 

320 IF M%<>D THEN V=D: AW=M1%: M%=D: GOSUB 500 

338 IF HH%<>E THEN V=E: AW=H2%: HHZ=E: GOSUB 508 

348 IF H%A£>F THEN V=F: AW=Hi%: H%=F: GDSUB 508 

345 GET Z$: IF Z$="E" THEN GOTO 368 

356 G0TO 285 

368 POKE 53288, 14:POKE 53281, &6:END 

PO REM lea EHEN EEN aunnannuna. ÜNTERPROGRAMM UHR 
518 K=9 

520 FOR I=8 TO 6 

530 FOR J=@ TO 4 

540 POKE AW+1#40+J,AZ{V,K) 

550 K=K+1 

568 NEXT J 

576 NEXT I 

586 RETURN 
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997 REMennnnnnnnn Der: IE SECHRTIRNE ....DATEN FUER ZIFFERN 
1800 DATA 32,81,81,81,32,81,32,32,32,81,81,32,32,32,81 
1001 DATA 81,32,32,32,81,81,32,32,32,81,81,32,32,32,81 
1882 DATA 32,81,81,81,32 

1010 DATA 32,32,81,32,32,32,81,81,32,32,81,32,81,32,32 
1911 DATA 32,32,81,32,32,32,32,81,32,32,32,32,81,32,32 
1012 DATA 81,81,81,81,81 

1020 DATA 32,81,81,81,32,81,32,32,32,81,32,32,32,81,32 
1821 DATA 32,32,32,81,32,32,32,81,32,32,32,81,32,32,32 
1822 DATA 81,81,81,81,81 

1930 DATA 81,81,81,81,81,32,32,32,81,32,32,32,81,32,32 
1031 DATA 32,32,32,81,32, 32,32, 32,32, 81,81,32,32,32,81 
1632 DATA 32,81,81,81,32 

1040 DATA 32,32,32,81,32,32,32,81,81,32,32,81,32,81,32 
1941 DATA 81,32,32,81,32,81,81,81,81,81,32,32,32,81,32 
1042 DATA 32,32,32,81,32 

1050 DATA 81,81,81,81,81,81,32,32, 32, 32,81,81,81,81,32 
1951 DATA 32,32,32,32,81,32,32,32,32,81,81,32,32,32,81 
1952 DATA 32,81,81,81,32 

1060 DATA 32,32,32,81,32,32,32,81,32,32,32,81,32,32, 32 
1061 DATA 81,81,81,81,32,81,32,32,32,81,81,32,32, 32,81 
1062 DATA 32,81,81,81,32 

1870 DATA 81,81,81,81,81,32,32,32,81,32,32,32,32,81,32 
1971 DATA 32,32,81,32,32,32,32,81,32,32,32,81,32,32,32 
1872 DATA 32,81,32,32,32 

1089 DATA 32,81,81,81,32,81,32,32,32,81,81,32,32,32,81 
1081 DATA 32,81,81,81,32,81,32,32,32,81,81,32,32,32,81 
1082 DATA 32,81,81,81,32 

1690 DATA 32,81,81,81,32,81,32,32,32,81,81,32,32,32, 81 
1991 DATA 32,81,81,81,32,32,32,32,81,32,32,32,81,32,32 
1092 DATA 32,81,32,32,32 


READY. 
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Wwochentagogsbestimmung 


Ein Programm zur Wochentagsbestimmung kann z.B. 
bei der Programmierung eines Terminkalenders nützlich 
sein, 


Das folgende Programm berechnet den Wochentag für 
ein beliebiges Datum zwischen 1901 und 2099. Die 
Bestimmung des Wochentages erfolgt dabei durch Zählen 
der Tage seit dem 1.1.1909. Für das Jahr J ergibt der 
Ausdruck 


(J - 1901) * 1461 / 4 


die Anzahl der Tage seit dem 1.1.1909 bis zum 31.12. 
des Vorjahres. Dazu muß noch die Tageszahl des laufen- 
den Jahres hinzugezählt werden. | 


Die Monatsersten eines Nichtschalt jahres haben die 
Tagesnummern 


oO, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 


Diese Zahlenfolge kann man aus dem nachstehenden 
mathematischen Ausdruck erhalten: 


INTLAIS8 # M = 1857/53) + IM +1) IM > 2) 


Dabei ist M > 2 ein logischer Ausdruck, der im 
Commodore-BASIC den Wert -1 besitzt, wenn die 
angegebene Aussage ('M ist größer als 2') zutrifft, 
also wahr ist. Ist hingegen M nicht größer als 2, so 
ergibt sich der Wahrheitswert O. 


Bei Schaltjahren muß in den Monaten März bis 
Dezember die Tageszahl um jeweils eins erhöht werden. 
Dies läßt sich durch folgende Berechnung erreichen: 

(INT(A/4) = A/4) * (M> 2) 

Da der 1.1.1909 ein Dienstag war, kann nun durch 
Bestimmen des Siebenerrestes der gesuchte Wochentag 
ermittelt werden. Dazu müssen die Wochentage wie folgt 
codiert werden: 


O = Sonntag, 1 = Montag, 2 = Dienstag usw. 
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100: REM. au ER aanennanneee  WOCHENTAGSBESTIMMUNG 
128 PRINT" 3 WOCHENTAGSBESTIMMUNG g" 

125 REM nnnnnnn een PN ARE PRRE ER B PEIIREREEN? 2... EINGABE 
138 PRINT"® DATUM IN DER FORM TT.MM.JJJJ EINGEBEN" :PRINT:PRINT 
148 INPUT" DATUM":D$ 

150 T=VAL(MID$(D$,1,2)) 

168 M=VAL(MID$(D$,4,2)) 

17@ J=VAL(MID$(D$,7,4)) 

188 IFT>31 OR M>12 THEN PRINT" EINSABEFEHLER!":60T0 140 

198 IFJ<1981 THEN PRINT" EINGABEFEHLER!":60T0 148 

IS REN ee annanene nn» BERECHNUNG 
208 GOSUB 300 

218 D=D-7#INT(D/7) 

228 FOR I=8 TO 6 

238 READ W$(I) 

240 NEXT I | 
SO REM ser BLUSEABE 
268 PRINT"M DER "3MID$ (STR$(T),2,2)". "MID$(STR$ (M) „2,295 

265 PRINT". "MID$ (STR$(J),2,4)5 

278 PRINT" IST EIN "5W$(D)5".":PRINT:PRINT:PRINT:RESTORE 

288 PRINT: INPUT"WEITER J/N";A$ 

298 IFA$="J" THEN G0OTD 128 

295 END 

306 REM ...... enunnnnenennnunnnnnnnn nenn. TAGESNUMMER AB 1.1.1901 
318 D=INT((J-1901)#1461/4) +1+T+INT ( (158+M-157) /5) 

320 D=D+(M>2)#(M-(INT(J/4)<J/4)) 

330 RETURN 

39® DATA SONNTAG, MONTAG, DIENSTAG, MITTWOCH 

480 DATA DONNERSTAG, FREITAG, SAMSTAG 

READY. 
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Numerische 1.’Nn:0.©: 9 252 %3-&% 


Die Berechnung eines bestimmten Integrals kann 
geometrisch als Berechnung einer Fläche betrachtet 
werden. In vielen Fällen ist eine Anwendung der üblich- 
en Integrationsmethoden nicht möglich oder zu aufwen- 
dig, sodaß sich ein numerisches Verfahren anbietet. Da 
diese Methoden iterativ arbeiten, ist die Genauigkeit 
der Ergebnisse von der Zahl der Iterationen abhängig: 
je genauer das Integral berechnet werden soll, desto 
größer ist der dazu erforderliche Rechenaufwand. 


Zu den gebräuchlichsten Verfahren zur numerischen 
Berechnung von Integralen gehören das Trapez-Verfahren, 
das Mittelpunkt-Verfahren sowie das Simpson-Verfahren. 


Sowohl beim Trapez- als auch beim Mittelpunkts- 
Verfahren wird die Fläche unter einer Kurve durch eine 
Summe von Rechtecken approximiert: je schmaler die 
Rechtecke sind, desto genauer kann der Wert der Fläche 
bestimmt werden. 


Bei der Trapez-Methode wird der Mittelwert der 
Funktionswerte der Punkte C und D benutzt, sodaß das 
entsprechende Flächenstück unter der Kurve als Trapez 
betrachtet wird. 


Bei der Mittelpunkt-Methode wird der mittlere 
Funktionswert in dem Intervall von C bis D genommen, um 
ein Rechteck zu berechnen, das als Approximation für 
die Fläche unter der Kurve angesehen wird. 


Bessere Ergebnisse als durch diese beiden Methoden 
erhält man in der Regel durch das Simpson-Verfahren, 
nach dem man einfach einen gewichteten Mittelwert aus 
den nach der Trapez- bzw. Mittelpunkt-Methode ermittel- 
ten Werten berechnet. Bezeichnen wir die Schätzung nach 
der Trapez-Methode mit T, die nach dem Mittelpunkt- 
Verfahren mit M und die nach dem Simpson-Verfahren mit 
S, so lautet die Simpson-Regel: S = 1/3 *#* T + 2/3 * M. 


Zum Programm: die Funktions-Definition steht in 
Zeile 20, die Anfangs- und Endwerte des Integrals sind 
in der DATA-Anweisung in Zeile 200 angegeben. Zeile 210 
enthält den Wert, der die Genauigkeit der Berechnungen 
festlegt. Dazu noch eine Anmerkung zu der Abfrage in 
Zeile 170: für eine aufwärts konkave Kurve ist der Wert 
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T zu groß, M hingegen zu klein. Das Gegenteil ist der 
Fall, wenn die Kurve abwärts konkav ist. In allen 
Fällen ist der Absolutbetrag der Differenz T-M größer 
als der tatsächliche Fehler, sodaß der Test in Zeile 
170 ein brauchbares Abbruchkriterium liefert. 


An vier Programmläufen sollen jetzt verschiedene 
Punkte illustriert werden. Dazu werden die folgenden 
vier Integrale berechnet: 


(xT2 + 3% x +1) dx 
1 (X) dx 
> 9A. 12) dx 


et(=-(xT2)72) a% 


Das erste Integral ist aufwärts konkav, d.h. T ist 
zu groß und wird fortwährend vermindert, um den korrek- 
ten Wert zu erreichen. Der Anfangswert von M dagegen 
ist zu klein und wird entsprechend erhöht. 


Die zweite Funktion ist abwärts konkav, sodaß das 
Gegenteil geschieht. In beiden Fällen kann man aber 
beobachten, daß die Schätzung nach Simpson sehr viel 
schneller zum Ziel führt als die beiden anderen (bei 
einem quadratischen Polynom sogar in einem einzigen 
Schritt!). 


Der Wert des dritten Integrals ist gleich der 
Kreiszahl Tr. 


Das vierte Beispiel schließlich ist eine Funktion, 
die überhaupt nur numerisch integriert werden kann. 
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NUMERISCHE-INTEGRATION 


Trapez - Mittelpunkt- 
Verfahren 


Anfang 


h= Gesamte Breite 
a Intervalls AB 
T= [fa +f@)]* h 


-A 
[ * 
T= (T+M)/h 


nein 


A uß* Diag ramm: Integral berechnungen 


5 REMenn ann» EEE Kuunnnununenn nenn INTEGRALBERECHNUNG 
18 PRINT"/N SMTRAPEZ-,IMITTELPUNKT-, “SIMPSON-VERFAHREN" 

15 PRINT CHR$ (154); 

2@ DEF FN F(X)=1/Xz REMennn nn. “enanunnnennn „ANGABE DER FUNKTION 
38 READ A,B,E 


90 

108 
118 
128 
120 
149 
145 
156 
168 
165 
170 
188 
195 
200 
210 


H=B-A 
T={FNF{A)+FNF (BI) *H 


=®d 


T=(T+M)/2 
M=0 
FOR X=A+H/2 TO B STEP H 


M=M+HFNF (X) 
NEXT X 

=M*H 
S=(T+2%M) /3 

I=1+H1 
REM onnueanenunnnennnnnnnnennnnnnnn nn AUSGABE DER NAEHERUNGEN 
PRINT" M"3 13 "m"; TAB (3) 5 INT (T*100000009) /1000000005 CHR$ (154) 3 
PRINT"R" 5 TAB (15) 5 INT (M&100090000) / 1000000895 CHRS$ (154) 5 
PRINT"K"TAB (27) 5 INT (5*100000900) /10000809095 CHR$ (154) 
H=H/2 

IF ABS{T-M)/ABS(S) > E THEN 70 
REMennnuannn PR a ee ereseinsrai DATEN 
DATA 1,19 | 
DATA 1E-4 


READY. 
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28 DEF FN F{X)=X12+3%X+1 


206 DATA 1,5 


TRAPEZ-,MITTELPUNKT-, SIMPSON-VERFAHREN 


No 2a GW N 


92 

84 

82 

81.5 
81.375 
81.354375 


81.3359375 81.3320313 


READY. 


76 

80 

gi 

81.25 
81.3125 
81.328125 


28 DEF FN F{X)=LOG(X) 


268 DATA 1,2 


TRAPEZ-,MITTELPUNKT- , SIMPSDN-VERFAHREN 


no oa ad N - 


34657357 
.376081734 
3836795 

38564591 
38615163 
58625567 
. 58628418 


READY. 


4854651 
39137966 
38758831 
38661736 
3865757 
3863147 
58629944 
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81.53333334 
81.3533334 
81.3333334 
81.3333334 
81. 3333334 
81. 3333334 
81.53333334 


.3858346 

38625956 
. 58629204 
.538629421 
. 38629435 
. 58629436 
. 386294536 


28 DEF FN F{X)=2/(1+X12) 


208 DATA -1,1 


TRAPEZ-,MITTELPUNKT-, SIMPSON-VERFAHREN 


Nor Ua UN - 


(YJ mM 


Jul 

3.13117647 
3.138978849 
3.14094161 
3.14142989 


READY. 


28 DEF FN FIX)=EXPt-(X12)/2) 


286 DATA -4,4 


N a WW N 


2.6837E-053 
4.00134185 
2.34201205 
2.530628534 
2.30641646 


READY. 


4 
2 

3.16235294 
3.14680051 
3.14289472 
3.14191817 
3.1415740953 


8 

1. 08268226 
2.47055862 
2. 30654758 
2.50649495 
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3. 33333333 
3.13333333 
3.14156862 
3.1415925 
3.14159265 
3.14159265 
3.14159265 


TRAPEZ-,MITTELPUNKT-, SIMPSON-VERFAHREN 


3. 53422789 
2.05556877 
2.49437643 
2.50646017 
2.90646878 


Division Fin st N Stellen 


Falls Sie bei einer Division einmal mehr Stellen 
nach dem Komma berechnet haben wollen, als ihr Computer 
normalerweise liefert, besinnen Sie sich doch mal Zzu- 
rück, wie Sie früher solche Rechnungen "zu Fuß", auf 
einem Blatt Papier, ausgeführt haben! (Sie erinnern 
sich doch noch daran?) 


Das angegebene Programm macht allerdings zusätz- 
lich von einer Standardfunktion (INT) Gebrauch, die wir 
(Menschen) nicht "eingebaut" haben. Nach der Eingabe 
der zu teilenden Zahl (Zähler) und des Teilers (Nenner) 
wird die Zahl der Nachkommastellen erfragt. Der Teil 
des Ergebnisses, der vor dem Komma bzw. Dezimalpunkt 
steht (Q), wird mit sofort mit einer einzigen Anweisung 
berechnet und anschließend - mit einem Dezimalpunkt 
versehen - ausgegeben. 


In einer FOR-Schleife wird nun jeweils der Rest 
der Division als neuer Zähler ermittelt und mit 10 
multipliziert. Aus diesem neuen Teiler wird mit Hilfe 
der INT-Funktion dann die nächste Nachkommastelle be- 
rechnet und ausgegeben, usw. 
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18 REM. .„.uesonuusnenneaunununennunnnn nun. DIVISION MIT N STELLEN 
28 PRINT"M 3 DIVISION MIT N STELLEN ” 

36 PRINT: INPUT" ZAEHLER"5Z 

48 PRINT: INPUT” NENNER";N 

38 PRINT:PRINT: INPUT" ZAHL DER NACHKOMMASTELLEN"SK 

68 REM. „unnususonoonunnnnunnnnusn enennnnn.. BERECHNUNG UND AUSGABE 
78 B=INT{Z/N 

88 PRINT: PRINT: PRINT 

98 PRINT 25"/"5N5"="55TR$(Q)5"."5 

188 FOR I=1 TO K 

118 REST=Z- (N*Q) 

1280 Z=REST#1® 

130 Q=INT(Z/N) 

148 FRINT RIGHT$(STR$(09),1);5 

150 NEXT I 

168 PRINT: PRINT" SOLL NOCH MEHR BERECHNET WERDEN? (J/N)" 

170 GET Z$: IF Z$="" THEN G0T0 178 

186 IF Z$="J" THEN G60TD 20 

198 END 


READY. 


ZAEHLER? 1.7 


NENNER? 3.9 


ZAHL DER NACHKOMMASTELLEN? 25 


1.7 / 3.9 = 0.4358974358568506339378797 
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Geburtstagswahrschein lic h- 
keit 

Wenn Sie bei einer Party mit ca. 60 Gästen er- 
klären, daß mindestens zwei von ihnen am selben Tag 
Geburtstag haben, werden die meisten dies vermutlich 
bezweifeln. Tatsächlich ist es aber nahezu sicher, daß 
diese Behauptung richtig ist, die Wahrscheinlichkeit 
für dieses Ereignis also sehr nahe bei 1 liegt! 


wie läßt sich so etwas berechnen? Gehen wir davon 
aus, daß die Geburten gleichmäßig über das Jahr ver- 
teilt sind. (Schaltjahre wollen wir auch unberücksich- 
tigt lassen, da sie das Ergebnis ohnehin kaum beein- 
flussen würden). 


Bei Wahrscheinlichkeitsberechnungen ist es häufig 
einfacher -— bzw. die einzige Möglichkeit - , die Wahr- 
scheinlichkeit für das komplementäre Ereignis zu be- 
rechnen und diesen Wert dann von 1 zu subtrahieren. 


Anstatt die gesuchte Wahrscheinlichkeit direkt zu 
berechnen, ermitteln wir auch hier die Wahrscheinlich- 
keit, daß von N Personen alle an verschiedenen Tagen 
Geburtstag haben. Nennen wir diese Wahrscheinlichkeit 
Q, so ist die gesuchte Wahrscheinlichkeit dann P = 1-Q. 


Bei zwei Menschen beträgt die Wahrscheinlichkeit, 
daß beide verschiedene Geburtstage haben: 364/365. 


Nachdem zwei Daten belegt sind, ist die wWahr- 
scheinlichkeit, daß eine dritte Person einen anderen 
Geburtstag hat, als die beiden ersten: 363/365. 


Um die Wahrscheinlichkeit zu erhalten, daß alle 
drei Personen verschiedene Geburtstage haben, multipli- 
ziert man die einzelnen Wahrscheinlichkeiten (da diese 
Ja als voneinander unabhängige Ereignisse betrachtet 
werden) und erhält: 


365/365 * 364/365 * 363/365 = .9918 und somit 
Ti = 8.5 -z0082, 


QO.=$ 
Pr 


Allgemein beträgt die Wahrscheinlichkeit Q, daß 
von N Personen alle einen anderen Geburtstag haben: 


365 364 mie. BOI-NFI 
365 365 369 
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10 
20 
30 
40 
38 
66 
78 
89 
98 
1006 
110 
120 
130 
135 
1408 


REM. „uournnunsuunanuunnune „0... GEBURTSTAGS-WAHRSCHEINLICHKEIT 
PRINT"TIN 3 WAHRSCHEINLICHKEIT, DASS 2 PERSONEN " 
PRINT" 3 ” 
PRINT" 94 AM GLEICHEN TAG GEBURTSTAG HABEN " 
REM 
PRINT" SIRISINDIISIHIKINININ "52 INPUT"WIEVIELE PERSONEN": N$ 
IF N$S=CHR$ (13) THEN END 
N=VAL {N$) 
Q=1 
FOR I=1 TON 
a=0# (5365-1) /365 
NEXT I 
PRINT"MM WAHRSCHEINLICHKEIT: ”; 
PRINT" "5SPC(19N 5 INT(10808%* (1-09) +.5) 7/1000 
GOTO 68 


READY. 


WAHRSCHEINLICHKEIT, DASS 2 PERSONEN 


AM GLEICHEN TAG GEBURTSTAG HABEN 


WIEVIELE PERSONEN? 68 


WAHRSCHEINLICHKEIT: „975 


1993 


zZzahlenunrechnungen 


Umrechnung von Binärzahlen in Dezimalzahlen 


Das binäre (oder duale) Zahlensystem (binär bzw. 
dual = 2) verwendet nur die beiden Ziffern OO und 
(vgl. Kapitel 9). 


Genau wie im Dezimalsystem bestimmt auch im Binär- 
system die Stelle innerhalb einer Zahl, an der eine 
Ziffer des Systems steht, ihren Wert. So läßt sich z.B. 
die Dezimalzahl 321 darstellen als: 


1% 1 +2 %* 10 + 3 * 100 
Im Dezimalsystem werden die Ziffern Ihrem Stellen- 
wert entsprechend mit Potenzen von 10 multipliziert: 


1010 = 15 1071. = 109; 1072 = 190: usw, 


Im Binärsystem werden stattdessen Potenzen von 2 
verwendet: 2TO = 1, 271 = 2, 2T3 = 8 usw. 


Die Binärzahl 1101 wird demnach folgendermaßen 
(von rechts nach links) in eine Dezimalzahl umge- 
rechnet: 


1101 


Ti 2.2102. 0# 277 & 7 #22 247 #275 
1.81 0425 22 RER 
13 


Il 


Ein Programm, das nach diesem Verfahren eine 
Binärzahl in eine Dezimalzahl umwandelt, muß also der 
Reihe nach die einzelnen Ziffern der Binärzahl mit den 
Jeweils um eins erhöhten Potenzen zur Basis zwei 
multiplizieren. Dazu muß die Binärzahl aber zuerst 
einmal in einen String umgewandelt werden. Das folgende 
Programm arbeitet in der soeben beschriebenen Weise: 
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10 REM anna. IRRE NEESER EIERN UMRECHNUNG BINAER - DEZIMAL (1) 
26 PRINT"IIN 3 UMRECHNUNG: BINAER- IN DEZIMALZAHL " 

38 PRINT"® (TASTE °E” -> PROGRAMMENDE) " 

48 D=6: E=0: 0OKk=8 

5® PRINT" SInIInInInIn]" 5 

68 INPUT" BINAERZAHL";B$ 

7% IF B$="E" THEN PRINT" MIN": END 

BOHREMU ee EHE TTEUENSERTEEN: RE AER 2.0.00 „ BERECHNUNG 
98 FOR I=LEN(B$) TD 1 STEP -1 

190 M$=MID$ (B$, 1,1) 

119 IF (M$<"Q" OR M$>"1") THEN OK=-1: GOTO 150 

128 D=D+VAL (M$) *2tE 


130 E=E+1 

140 NEXT I 

1586 IF OK=-1 THEN FRINT" AI] #*%* FALSCHE EINGABE!": PRINT: GOTO 40 
160 REM... un suunousuenusunn nen nun sau n nen ..„AUSGABE DES ERGEBNISSES 
178 PRINT"AN DEZIMALZAHL ="5D; "N ® 


180 PRINT: GOTO 48 


READY. 
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Ein anderes Verfahren zur Umrechnung von Binär- 
zahlen in Dezimalzahlen wird durch die folgende Dar- 
stellung verdeutlicht und funktioniert so: 


1 1 1 ©) ) 1 
ei 
ı1*2= __2 1 
3#*2= 6 + 0 
7 #2 = 14 +0 
14 * 2 =_28 + 1 
28* 2= 56 


1 0 
I N 


Die Umrechnung erfolgt schrittweise von links nach 
rechts. 


1. Schritt: Die erste Ziffer der Binärzahl wird mit 2 
multipliziert. Handelt es sich um eine 
einstellige Binärzahl, so ist die Berech- 
nung beendet: das Ergebnis lautet ent- 

weder O oder 2. 


Ansonsten geht es weiter mit dem 


2. Schritt: Zu dem Ergebnis wird die nächste Ziffer 
der Binärzahl hinzugezählt. Jetzt wird 
dieses Ergebnis mit 2 multipliziert. 


Sind alle Stellen abgearbeitet, so ist 
die Umrechnung beendet. Wenn nicht, wird 
der zweite Schritt wiederholt. 


Dieser Algorithmus liegt dem nächsten Programm 
zugrunde. Zusätzlich werden auch die Zwischenergebnisse 
ausgegeben. 
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18 
20 
36 
40 
38 
68 
70 
80 
90 


REM asus ans eunnn UMRECHNUNG BINAER - DEZIMAL (2) 
PRINT"IIN 3 UMRECHNUNG: BINAER- IN DEZIMALZAHL " 

PRINT"S (”’E” -> PROGRAMMENDE) ” 

D=8: F=-1: K=® 

PRINT" SInInIeinisin]" ; 

INPUT" BINAERZAHL";B$ 

IF B$="E" THEN PRINT” MAN": END 

REM. Sa. 5 Fe EEE ET TIERD BERECHNUNG 
FOR I=1 TO LEN(B$) 


108 M$=MID$(B$, 1,1) 
118 IF (M$<"@"OR M$>"1") THEN F=1: K=K+l: GOTO 136 
120 D=2xD+VAL (M$) 


130 NEXT I 

148 PRINT 

145 REM........ Bannnunsensnsenenunnnene .......u EINGABE ZULAESSIG? 
150 IF F<=® THEN PRINT" = 


16@ IF F>8 THEN PRINT" FALSCHE EINGABE! ("5 
178 IF F>8 THEN PRINT K5"N ZIFFERN FALSCH!)"5= GOTO 49 


175 REM: sis aa 2a ao ma 8 = a 2. 2 3 8 . u su so © = au 8 a as a nn u 2 u © -. «ERGEBNIS 
188 PRINT" DEZIMALZAHL ="5D; "NH e 

198 GOTD 40 

READY. 
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Umrechnung von Dezimalzahlen in Binärzahlen 


Das folgende Verfahren stellt die Umkehrung des 
zuvor angegebenen Algorithmus zur stellenweisen Um- 
rechnung von Binärzahlen dar: 


Durch fortgesetzte - ganzzahlige - Division einer 
Dezimalzahl durch zwei erhält man unter entsprechender 
Berücksichtigung des Divisionsrestes die Binärzahl. Die 
Berechnung ist beendet, wenn die Division den Wert Null 
ergibt. Die Binärzahl wird hierbei von rechts nach 
links aufgebaut. 


Mit dem folgenden Beispiel wird das Vorgehen er- 
läutert: 


Die Zahl 57 soll als Binärzahl dargestellt werden. 
Die Division durch 2 ergibt 28, Rest 1. Dies ist die 
erste - rechte - Ziffer der Binärzahl. 


Die Division von 28 durch 2 ergibt 14, Rest O. 
Dies ist die zweite Ziffer der Binärzahl, die somit 
bisher 01 heißt. 


Entsprechend geht man vor, bis sich im letzten 
Schritt unseres Beispiels bei der Division von 1 durch 
2 der Wert O ergibt (mit dem Rest 1), womit die Berech- 
nung abgeschlossen ist. 


Die gesamte Berechnung ist im folgenden in üÜber- 
sichtlicher Form dargestellt. Das nachstehende Programm 
rechnet Dezimalzahlen nach dem hier beschriebenen Ver- 
fahren um. 


87:2 = 28 Rest 1 


28 : 2 = 14 Rest O0 


14:2 = 7 Rest O 
7: 2= 3 Rest 1 
3: 2= 1 Rest 1 
‚1:2 2= 0 Rest 1 1 1 6) 6) 1 
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10 REM nnnnnnnnn TER “nuunnnn « ÜMRECHNUNG DEZIMAL - BINAER 
15 PRINT"IIN SUMRECHNUNG VON DEZIMAL-IN BINAERZAHLEN" 
20 Be="": Ag=t" 

30 INPUT" Ines: DEZIMALZAHL";5D$ 

40 IF D$="E" THEN PRINT" MRRIRee”: END 

50 D=VAL (D$) 

60 B=INT (D/2) 

70 R$=R$+STR$ ( (D/2-8) #2) 

84 D=Q 

98 IF Q>@ THEN GOTO 68 

106 FOR I=LEN{R$) TOD 1 STEP -1 

118 B$=B$+MID$ (R$, 1,1) 

120 NEXT I 

1358 PRINT"SM BINAER --> "5B$;" a 

148 PRINT: GOTO 28 

158 IF D>® THEN 60T0 50 

160 GOTO 68 


READY. 
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Umwandlung von Dezimalzahlen in Zahlen mit be- 
liebiger Basis und umgekehrt 


Das nächste Programm ist nicht auf die Umrechnung 
von Binärzahlen beschränkt, sondern kann eine Dezimal- 
zahl in eine Zahl mit einer beliebigen Basis zwischen 
zwei und sechszehn umrechnen, und umgekehrt. Eine 
größere Basis ist nicht sinnvoll, weil das Hexadezimal- 
system mit der Basis 16 die größte Basis verwendet, die 
eine praktische Bedeutung hat. 


Die Umwandlung einer Dezimalzahl in eine Zahl zur 
Basis G geschieht nach folgendem Verfahren: 


Aus der Darstellung 
N=A G +A G a Een ee © en Zu u © 


erhält man die G-adischen Ziffern (also die Zif- 
fern zur Basis G) durch fortgesetzte Division durch die 
Basis G. Der Divisionsrest ergibt - mit A beginnend - 
die G-adischen Ziffern. Die Umrechnung ist beendet, 
wenn der ganzzahlige Teil des Quotienten N/G gleich 
Na2lL 38T; 


Zur Umwandlung einer Zahl mit der Basis G in eine 
Dezimalzahl wird die Horner-Darstellung benutzt. Die 
Auswertung der Klammerausdrücke erfolgt dabei von innen 
nach außen: 


ee  - uer ce u: | AG +ra )G + ...2a)S +ta 
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VO REN ae 2.0.» ZAHLENUMWANDLUNGEN 
15 PRINT"TM 3 ZAHLENUMWANDLUNGEN n 
20 PRINT"MM MIT DIESEM PROGRAMM KOENNEN SIE" 

38 PRINT" DEZIMALZAHLEN IN ZAHLEN MIT BELIEBIGER" 

35 PRINT" BASIS (>1 UND <=16) UMWANDELN LASSEN. " 

48 PRINT" BITTE WAEHLEN SIE: " 

45 C7=12: CS=5: GOSUB 1880 

5@ PRINT"1 DEZIMAL --> BELIEBIGE BASIS" 

55 C7=13: C$=5: GOSUB 1890 

60 PRINT"2 BELIEBIGE BASIS --> DEZIMAL" 

65 CZ=14: C$=5: GOSUB 1099 

78 PRINT" ENDE" 

88 GET A$ 

85 IF A$="" THEN GOTD 89 

96 IF A$="0" THEN PRINT": END 

95 IF (A$<>"1" AND A$<>"2") THEN GOTO 80 

108 ON VAL(A$) GOTO 110,290 | 
110 REN een “anne. „DEZIMAL --> BELIEBIGE BASIS 
12® PRINT"M 3 DEZIMALZAHL -> BELIEBIGE BASIS <= 16 " 
130 Y$="0123456789ABLDEF" 

146 INPUT"SIM BASIS: "6 

158 IF 6=® THEN PRINT" Ein": END 

168 INPUT" DEZIMALZAHL:"5 N 

198 Z$="" 

208 PRINT"XM --) "73 

218 FOR I=® TO 255 

228 R=N-G#INT (N/G) 

238 7$=MID$(Y$,R+1,1)+Z% 

248 N=INT (N/G) 

258 IF N=® THEN 60T0 278 

260 NEXT I 

278 PRINT 285" 2 

288 GOTO 138 
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4978 


REM. mans aaa nee „ueneunnun. BELIEBIGE BASIS —-> DEZIMAL 


PRINT" 3 ZAHL MIT BASIS <= 16 --> DEZIMALZAHL " 
Y$="0123456789ABCDEF" 


INPUT" klei] BASIS: ":6 

IF G=8 THEN PRINT" Heirimietaiie": END 
INPUT" ZAHL: ",Z2$ 
PRINT"MM DEZIMAL -->"5 

N=8 


FOR I=1 TOD LEN(Z$) 
T$=MID$(Z$,1I,1) 

FOR K=1 TO LEN(Y$) 

IF T$<>MID$(Y$,K,1) THEN 450 
N=N#G+K-1 

6070 468 

NEXT K 

NEXT I 

PRINT N5"N u 
GOTO 328 

END 


180088 CZ=-1024+40%C7 
1818 POKE 289, CZAND255 
1820 POKE 2180,C7/256 
1858 FOKE 211,C5 

1848 RETURN 


READY. 


204 


DEZIMALZAHL -> BELIEBIGE BASIS <= 16 
BASIS: ?13 


DEZIMALZAHL:? 365962 


--> CA7SC 


ZAHL MIT BASIS <= i6 --> DEZIMALZAHL 
BASIS: ? 16 


ZAHL: ? 9ABCDEF 


DEZIMAL --> 162254319 


READY. 
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Logik - Formel 


Das vorliegende Programm wertet eine logische 


Formel mit drei Variablen - A, Bund C - aus. Die 
möglichen Kombinationen der Wahrheitswerte sind in den 
DATA-Zeilen angegeben. Das Programm ermittelt, für 


welche dieser Kombinationen die Verknüpfung der Varia- 
blen insgesamt gilt, also den Wahrheitswert -1 hat. 


Die Variablen können als Stellvertreter für belie- 
bige Aussagen betrachtet werden. Analysieren wir z.B. 
den Satz: 


"Kunden erhalten 3% Rabatt, wenn sie bereits län- 
ger als 5 Jahre zur Kundschaft gehören, oder wenn sie 
waren im Wert von mehr als DM 1000.- bestellt haben und 
nicht mit Zahlungen im Rückstand sind." 


Die Frage ist, in welchen Fällen ein Kunde den 
Rabatt erhält. Dazu werden drei Aussagen gemacht: 


A Jemand ist länger als 5 Jahre Kunde. 

B Jemand hat waren im Wert von mahr als DM 
1000.- bestellt. 

C Jemand ist mit Zahlungen nicht im Rückstand. 


Übersetzt in einen logischen Ausdruck mit den 
angegebenen Variablen lautet der obige Satz: 


A ODER B UND C 


Zu beachten ist, daß das logische UND stärker 
bindet als das ODER, d.h. die Aussagenverknüpfung wird 
so ausgewertet, als stünden die durch UND verknüpften 
Variablen in Klammern: 


A ODER (B UND C) 


Diese Aussagenverknüpfung gilt also z.B. dann, 
wenn alle Teilaussagen wahr sind, d.h. jemand, der 
schon länger als 5 Jahre Kunde ist und Waren im Wert 
von mehr als DM 1000.- bestellt hat und mit Zahlungen 
nicht im Rückstand ist erhält selbstverständlich den 
Rabatt. Dies gilt jedoch auch für jemand, der noch 
nicht so lange zur Kundschaft gehört, aber auch Waren 
im Wert von mehr als DM 1000.- bestellt und nicht mit 
Zahlungen im Rückstand ist usw. zz 
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18 
20 
30 
40 
ra] 
60 
78 
86 
90 


BEIM Eu ae nie as EBD IK FORMEL: 
PRINT"INM 3 LOGIK-FORMEL ” 
REM. 2euuseuuuunnunu „.... „DEFINITION EINER AUSSAGENVERKNUEPFUNG 


DEF FN L{X=AIX OR (BIS AND LEO) 

REM.....ZAHL DER MOEGL. KOMBINATIONEN = 21 (ZAHL DER VARIABLEN) 
N=8 

DIM A{N),B{N),C{N 

REM sagen .muusunnnnnnnnnn nn BERECHNUNG ALLER KOMBINATIONEN 
PRINT: PRINT TAB{S;"A BC AOR (B AND C)"= PRINT 


188 FOR I=1 TON 


116 


READ A(I),B{TD),C(D 


126 PRINT TAB{ISI5ACDSB(IDSCIDSTABCZUDISFN LID 5 


150 
140 
150 


IF FN L{I)=1 THEN PRINT" WAHR" 
IF FN L{I)=8 THEN PRINT” FALSCH" 
NEXT I 


162 END 


REMeaanaeunannneennnnnnnnenn nenn nenn «DATEN DER KOMBINATIONEN 
DATA 1,1,1 
DATA 1,1,8 
DATA 1,9,1 
DATA 1,9,0 
DATA 9,1,1 
DATA 9,1,0 
DATA 9,8,1 
DATA 8,0,0 


READY. 
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Lissajous - Figuren 


Das foolgende Programm zeichnet Lissajous-Figuren 
auf den Bildschirm. 


Lissajous (1822 - 1880) war ein französischer 
Physiker, der sich mit visuellen Darstellungen von 
Schwingungen beschäftigte. 


Bei der Überlagerung von zwei zueinander senkrecht 


stehenden Schwingungen entstehen Figuren, wie sie auf 
dem Bildschirm dargestellt werden, 
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1@ REM. „„ououonsununnn .nunnneeenennnnnnnnnnnn nn» LISSAJUOUS-FIGUREN 


28 PRINT" 3 LISSAJDUS-F IGUREN ” 
38 PRINT: INPUT" NUMMER ZWISCHEN 18 UND ..... ";E 
35 REM. „souonunounon nenn nun nn .nunuunenne ......8RAFIK EINSCHALTEN 


48 POKE 53248+17,59: POKE 53248+24,24 
45 POKE 53280, 1 

56 FOR I=1924 TO 2023: POKE I,1: NEXT I 
55 FOR I=8192 TO 16191: POKE 1,8: NEXT I 
60 FOR I=0 TO 3098 

65 Y=99+99%5IN(1/99%*r) 

78 X=159+159*C05 (1/E*m) 

75 IF X<=8 THEN X=.01 

88 IF Y<=® THEN Y=.01 

85 IF X>=319 THEN X=319 

98 IF Y>=199 THEN Y=199 

100 GOSUB 1888 

105 GET A$: IF A$<>"" THEN G0TO 130 

110 NEXT I 

128 GET A$: IF A$="" THEN GOTO 128 

13@ POKE 53248+17,155: POKE 53248+24, 21 
146 POKE 53280, 14: PRINT"7" 

150 END 

DPF REMennnn nn SENCHRES ne energie PUNKT ‚SETZEN 
1080 XK=B#INT(X/8) 

1010 YK=329#INT(Y/B) +INT((Y/B-INT(Y/8)) 8) 
1920 S=8192+XK+YK 

1030 EX=2t1 (7-INT((X/8-INT(X/8))*8)) 

1040 POKE S,PEEK(S) OR EX 

1050 RETURN 


READY. 
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Die Maus EM Labyrinth 


Dieses Programm simuliert den Versuch einer 
"Maus", aus einem Labyrinth herauszukommen, das nur 
einen einzigen Ausgang besitzt. 


Das Labyrinth ist durch die Daten in den DATA- 
Zeilen fest vorgegeben. Diese Daten werden mit READ in 
das zweidimensionale Feld A eingelesen. Zu Beginn be- 
findet sich die "Maus" im Punkt (2,2). Von den bis zu 
acht benachbarten Positionen wird (mit Hilfe der RND- 
Funktion) eine zufällig ausgewählt. Wenn die Maus einen 
Umweg macht, also einen Punkt zum zweiten Mal erreicht, 
wird dieser Umweg gelöscht. Die Informationen über den 
weg der Maus werden im Feld A notiert. 


Erreicht die Maus den Ausgang (Punkt 13,10), so 
wird die Zahi der benötigten Versuche, d.h. Zufalls- 
entscheidungen, ausgegeben. 


Das Programm läuft zwar völlig selbständig ab, 
bietet aber dennoch Möglichkeiten zum Experimentieren: 
man kann z.B. leicht das vorgegebene Labyrinth ver- 
ändern, eventuell das Labyrinth auch vom Programm 
selbst erstellen lassen. 


Interessanter noch dürfte es sein, die Strategie 
der Maus zu verändern, z.B. so, daß sie bei mehreren 
möglichen Nachbarpositionen die Richtung nicht völlig 
willkürlich ändert, sondern ihren Weg möglichst gerade- 
aus fortsetzt. 
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Labyrinth 
erzeugen und 
ausgeben 


Startpunkt der 
'Maus' im Punkt 
(2,2) festlegen 


Zufallige Auswahl 
einer der ® möglichen 
Nachbarpositionen 


Ausgabe des 
gewählten Weges 


Schleife aus 
dern bisherigen 
Weg Löschen 


Zahl der Zufalls- 
entscheidungen 
ausgeben 


fFLuß- Diagramm: Maus ım Labyrinth 


IO REN. aanuunnennenn. MAUS IM LABYRINTH 
15 POKE 53289,®: POKE 53281, 11 

28 PRINT"M ma MAUS IM LABYRINTH a 
30 DIM A(13,13) 

48 FOR I=1 TO 12 

50 READ A$ 

68 FOR J=1 TO 12 

78 AtI,J)=-VAL(MID$(A$,J,1)) 

B® NEXT J 

98 NEXT I 

190 C=0 

118 PRINT"SIIMIKI" 

120 X=2: Y=2: A(2,2)=1 

130 Z=0 

1408 N=INT(B&RND (1)) +1 

158 C=C+1 

159 REM nee unnnunnunnunnennnnnnnnennnnnnnennunnnn WAHL DES WEGES 
168 DN N 60TO 178,180, 190, 200, 210, 220,230, 248 
178 I=X-1: K=Y-1: GOTO 250 | 

188 I=X-1: K=Y: 60T0 259 

198 I=X-1: K=Y+l: GOTO 250 

208 I=X: K=Y+l: G0TO 250 

218 I=X+1l: K=Y+1l: G0TD 250 

226 I=X+1: K=Y: 60TD 250 

236 I=X+1: K=Y-1: GOTD 250 

24% I=X: K=Y-1 

25% IF A(I,K)<® THEN 60TD 140 

266 IF Z THEN G0TO 59% 

27% GOSUB 350 

288 IF Atl,K)>® THEN 60T0 530 

298 A(I,K)=N 

308 X=I: Y=K 

318 IF X>12 THEN GOTD 630 

320 GOTO 168 

330 GOSUB 358 
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GOTO 638 

PRINT" SIHInIRisini" 3 

FOR L=1 TO 12 

FOR M=1 TO 12 

J=AL,M) +3 

IF J<4 THEN GOTD 419 

J=4 

ON J G0TO 428,440, 460, 480 


FRINT" 3 ="; 

GOTO 496 

PRINT"3 ="; 

GOTO 490 

PRINT" "5; 

GOTO 498 

PRINT" #1"; 

NEXT M 

PRINT 

NEXT L 

RETURN 

N=A(X,Y)=: AUX,YV)=6 

AIX,Y)=0 

Z=-1 

P=I: Q=K 

DN N GOTO 210, 220, 230, 240,170,180,190, 280 
STOP 

X=1: Y=K 

IF (P=I AND Q=K) THEN GOTD 138 

N=A(I,K): A(I,K)=0 

GDTO 578 

PRINT"="5=: FOR R=1 TO 19: PRINT"="5: NEXT R 
PRINT" „MAUS AM AUSGANG! mM" 

PRINT: PRINT” NACH"5C5 "ZUFALLSENTSCHEIDUNGEN. " 
END 


.LABYRINTH 


een Bannsnsunumuannunnnnnnnunnn nn. “DATEN FUER LABYRINTH 


211111111111 
2050080080802 
282011021102 
202002020202 
282112000202 
2000020200802 
2180111020011 
200806020002 
202821110202 
292020000282 
2009002000802 
211111111@11 
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MAUS IM LABYRINTH 


MAUS IM LABYRINTH 


iagee 
EIER 


ee, 
Er 


RENEEEE DE 


MAUS AM AUSGANG 


NACH 128 ZUFALLSENTSCHEIDUNGEN. 


READY. 


2ER. 


Monte Carlo-Berechnung von 
Pr-2 


Mit Hilfe von Simulationen lassen sich viele Pro- 
bleme lösen, für die es eine exakte Lösung nicht gibt, 
oder für die eine solche Berechnung viel zu aufwendig 
wäre - selbst für einen Computer. Ein Beispiel aus dem 
mathematischen Bereich ist die Berechnung mehrfacher 
Integrale. Die Bezeichnung 'Monte Carlo' soll daran 
erinnern, daß der Zufall bei diesen Berechnungen seine 
Hand im Spiel hat. 


Das Simulationsprogramm zur Berechnung der Kreis- 
zahl basiert auf Folgender Überlegung: 


In ein Quadrat mit der Seitenlänge r=1 wird ein 
Kreis gezeichnet. Die Fläche des Kreises ist (Tr. rT2) 
oder, da r=1 ist, T”-, während die Fläche des Quadrats 
(2:r)]2 = 4 ist. 


Betrachten wir einen zufäilig gewählten Punkt 
innerhalb des Quadrats, so ist die Wahrscheinlichkeit 
p, daß er sich auch im Kreis befindet, offensichtlich 
proportional zu dem Verhältnis der Flächen von Kreis 
und Quadrat, d.h.: 


( Tr-rT2) den 

(2.r)T2 4 

wählt man nun aus dem Quadrat willkürlich Punkte 

aus und bildet das Verhältnis der im Kreis befind- 
lichen zur Gesamtzahl der Punkte, erhält man einen 


Näherungswert für 7TT . Dieser wird umso genauer, Je 
größer die Anzahl der Punkte ist. 
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18 
20 
3® 
40 
50 
68 
65 
78 
75 
BB 
908 
95 
188 
118 
120 
125 
130 
140 
158 
168 
170 
188 
178 
208 
205 
218 
215 
220 


REM seitens bl BERECHNUNG 
PRINT"M 3 MONTE CARLO - BERECHNUNG VON PI ": PRINT 
PRINT" ES WIRD HIERBEI DAS VERHAELTNIS DER" 

PRINT" INNERHALB BZW. AUSSERHALB DES KREISES" 
PRINT" LIEGENDEN PUNKTE BERECHNET." 

FPRINT"=} NACH ZEICHNEN EINES KREISES UND EINES GUADRATS"; 
PRINT" HAT MAN MIT ’U’ DIE MOESLICH- KEIT, DIE AKTUELLE"; 
PRINT" NAEHERUNG ABZU- FRAGEN. " 
PRINT: INPUT" WEITER (J/N)"3A$ 

IF A$="N" THEN END 

213, PR RE erennenenunnennnnn «BRAFIK EINSCHALTEN 
V=-53248 

FOKE V+17,59: POKE V+24,24 

FOR I=1024 TO 2823: POKE I,i: NEXT I 

FOR I=8192T0 16191: POKE 1,0: NEXT I 

REM insert uonenensnnnnnnnennnnnnn ZEICHNEN KREIS 
FOR I=-68 TO 68 STEP 2 

X=160+1 

Y1=180-SOR (624i-1*I) 

Y2=100+SQR (6241-1*I) 

Y=100+] 

X1=160-50R (6241-1*I1) 

X2=160+50R (6241-1#I) 

XX=X: YY=Yi: G0SUB 69889 

XX=X: YY=Y2: GOSUB 60880 

XX=X1: YY=Yı GOSUB 5809998 

XX=X2: YY=Y: GDSUB 60088 

NEXT I 
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225. REN. au aaa ZEICHNEN BUADRAT 
250 FOR XX=88 TO 248 

235 YY=20: GOSUB 68908 

2408 NEXT XX 

245 FOR YY=20 TD 179 

256 XX=246: GOSUB 40800 

255 NEXT YY 

266 FOR XX=248 TO 86 STEF-i 

265 YY=179: GOSUB 50008 

278 NEXT XX 

275 FOR YY=179 TO 20 STEP-1 

280 XX=79: GOSUB 60098 

285 NEXT YY 

296 KX=RND{1)#2-1: KY=RND(1)#2-1 

295 IF (KX#KX+KY&#KY)<1 THEN IN=IN+1 

306 N=N+1 

305 XX=160+KX#79: YY=186+KY#79: GOSUB 68008 

316 REM au en aaa ae aa BERECHNUNG VON PI 
315 PI=INT (4#IN/N#1000880+.5) /1000000 

328 DI=(PI/nT-1)x#196 

338 PR=INT (DI#1080+.5) /1000 

3359 REN rss aan an AUSGABE DER WERTE 
346 GETA$: IF A$<>"U" THEN 60T0 390 

345 POKE V+17,155: POKE V+24,21 

358 PRINT"TIEM AKTUELLE NAEHERUNG FUER PI = ";PI 

355 PRINT"M ABWEICHUNG VOM WAHREN WERT = "5PR3"X" 

368 PRINT"M ANZAHL DER BERECHNUNGEN = "5N 

365 PRINT" MIN BERECHNUNG FORTSETZEN (J/N)" 

378 GET C$: IF C$="" OR (C$<>"J" AND C$<>"N") THEN GOTO 370 

375 IF C$="N" THEN G0OTO 488 

380 POKE V+17,59: POKE V+24,24:FOR 1=1924 TO 2023:POKE I1,1:NEXT I 
396 GOTO 298 

408 END 
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SP797F REM. uunsunenennnnunnuunu nn en „ÜNTERPROGRAMM PUNKT ZEICHNEN 
608888 A=INT{XX/B) #8+320* INT (YY/B) +INTLCYY/8-INT(YY/8))%8) 

68818 B=21(7-INTECXX/B-INTOXX/O))#8)) 

60828 C=8192+A 

60850 POKE C„PEEK{C) OR B 

60848 RETURN . 


READY. 
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AKTUELLE NAEHERUNG FUER PI = 3.142891 
ABWEICHUNG VOM WAHREN WERT = .016 % 
ANZAHL DER BERECHNUNGEN = 373 


BERECHNUNG FORTSETZEN (J/N 


READY. 
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(a a Ze = 


LIFE (= Leben) ist ein Simulationsspiel, das von 
John Conway erfunden wurde. Als Spielfeld benötigt man 
lediglich ein Blatt kariertes Papier und einen Blei- 
stift. In den Kästchen werden 'Lebewesen' in beliebiger 
Anordnung dargestellt. Diese stellen die ursprüngliche 
'Bevölkerung' dar, die sich in jeder 'Generation' da- 
durch verändern kann, daß Lebewesen sterben oder neue 
Lebewesen entstehen. 


Die Regeln für dieses 'Lebensspiel' sind sehr 
einfach: 


1. Jedes Element mit 2 oder 3 Nachbarn überlebt in 
der betreffenden Generation. 


2. Jedes Element mit mehr als 3 Nachbarn stirbt. 


3. In jedem Kästchen, das genau 3 Nachbarn hat, 
entsteht ein neues Element. 


Das Spiel bietet sich direkt dazu an, daß man es 
mit dem Computer spielt. Das Programm ist so ausgelegt, 
das man die Ausgangspopulation sowohl selbst eingeben 
kann, oder aber den Computer eine zufällige Anfangs- 
generation erzeugen läßt. Danach läuft das Lebensspiel 
nach den genannten Regeln von ganz allein ab. 


Insbesonders bei einer zufälligen Ausgangspopula- 
tion ist es sehr reizvoll, festzustellen, wie sich auf 
Grund der Regeln schon sehr bald oft sehr interessante 
regelmäßige Muster bilden. 


Im Anschluß an das Programm-Listing ist eine Aus- 
gangspopulation abgebildet, die als Muster für eigene 
Versuche dienen kann. 


Von einer anderen Ausgangsfigur finden Sie die 


Abbildungen sämtlicher sich daraus ergebenden Genera- 
tionen. 
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Eingabe der Anfangs- 
generation 


(über die Tastatur oder, 
als Zufallsentscheidung) 


Ausgabe des 
Spielfeldes 


Ausgabe der 
augenblicklichen 
Bevölkerung 


Ja 


nein 


Bestimmen der 
nachsten Generation 


Umspeichern der 
neven Generation 


tLuß- Diagramm: Eife= Spiel 


3 REM. „ounusoenuuaunsanunununnn Dunn neunsnuunnunenunun GAME OF LIFE 
18 PRINT"M 3 GAME OF LIFE . 

15 PRINT" 1. EIN LEBEWESEN STIRBT, WENN WENIGER" 

28 PRINT" ALS ZWEI ODER MEHR ALS DREI LEBE- " 


98 

108 
118 
120 
158 
148 
150 
168 
170 
188 
190 
208 
210 
220 
230 
250 
268 
270 
280 


PRINT" WESEN IN UNMITTELBARER NACHBARSCHAFT" 
PRINT"T) LEBEN. " 
PRINT:PRINT"E 2. EIN NEUES LEBEWESEN ENTSTEHT AUF” 


PRINT" EINEM FELD, WENN AUF ALLEN NACHBAR-" 
PRINT" FELDERN INSGESAMT DREI LEBEWESEN " 
PRINT" EXISTIEREN." 

PRINT" MR": INPUT” WIEVIELE LEBEWESEN"5SN 


DIM A(22,22), A1(22,22), B(22,22) 

REM anannnun FO FIRER WERNER INES „u... SETZEN DER LEBEWESEN 
PRINT: INPUT" 1. GENERATION SELBST EINGEBEN (J/N)";A$ 

IF A$="J" THEN GOTO 180 


REMe2nnnennnunn nn. ZUFAELLIGE VERTEILUNG DER ANFANGSGENERAT ION 
FOR I=1 TO N 

Z=INT{RND (1) #26+1) 

S=INT{RND(1)*20+1) 

AtZ,9)=1 

Al(Z,5)=1 

NEXT I 

GOTO 260 

REM ans PER BERSIEERE ..EINGABE UEBER DIE TASTATUR 
FOR I=1 TO N 

PRINT I5". ZEILE, SPALTE"3 

INPUT Z,5 

IF Z>2® OR S>20 THEN PRINT"x#* MAXIMUM = 28!": GOTO 208 
Atz,5)=1 

NEXT I 

REM» uannnunnannnnannnunnnnunnnnnnennnunnn «SPIELFELD AUSGEBEN 
PRINT"TIEEIN"5: POKE 53280,6: POKE 53281,6 

FOR I=1 TO 28 

PRINT" "= REM 28 LEERZEICHEN 

NEXT I 
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REM. .... Knunnsnnnnuenunnnn nnorsunune AUSGABE DER GENERATIONEN 
6=6+1 

NN= 

PRINT" SIMIMEN"; TAB(22)5"m"565 "N. GENERATION " 

PRINT" IMAIR" ; 


FOR I=1 TO 20 

FOR J=1 TO 28 

IF AtI,J)<>1 THEN 450 
PRINT" "3 

IF I>IMAX THEN IMAX=I 
IF J>JMAX THEN JMAX=J 
NN=NN+1 

GOTO 468 

PRINT"uS "; 

NEXT J 

PRINT 

NEXT I 

PRINT " SMIKDDIRKIN" 5 TAB (22) 5; CHR$ (154) 5 
PRINT" N ="5NN5 "I" 
IF NN=® THEN G0TD 898 


REM. „oouoonuennonns .nunu.“ BESTIMMEN DER NAECHSTEN GENERATION 


FOR I=1 TOD IMAX+1 
FOR J=1 TO JMAX+1 
IF AtI,J)=1 THEN G0TD 550 


FOR L=I-1 TO I+1 

FOR K=J-1 TO J+1 
=5+A(L,K) 

NEXT K 

NEXT L 

IF S<>3 THEN 60T0 768 
B(I,J=1 

G0TO 778 
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E5® REMeannnnnann BE RSPIRENEN IERSEPERUR 222... PRUEFEN OB TOD 
668 S=-1 

670 FÜR L=I-i1 TO I#1 
688 FOR K=J-1 TO J+1 
690 S=S+A(L,K) 

766 NEXT K 

71@ NEXTL 

720 IF 52 THEN 766 
736 IF 5>3 THEN 768 
748 B(1,D=1 

7580 GOTO 779 

760 B(1,9)=0 

77@ NEXT J 

78@ NEXT I 

730 REMeannnnnnnnannunnnennnnnnn„UÜMSPEICHERN DER NEUEN GENERATION 
800 GL=0 

816 FOR I=1 TO IMAX+1 
820 FOR J=1 TO JMAX+1 
840 A(I,D=B(1,J) 

850 NEXT J 

868 NEXT I 

830 GOTO 310 

890 END 


READY. 
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17. GENERATION 21. GENERATION 


18. GENERATION 22. GENERATION 
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zinseszins _ Berechnungen 

Die Formel zur Berechnung des Endwertes eines 
Kapitals einschließlich Zinseszinsen lautet: 

KN = KO * (1 + P/100)TN 
Dabei gelten folgende Bezeichnungen: 

KN Endkapital, 

KO Anfangskapital, 

P Zinssatz in % pro Zinsperiode, 


N Anzahl der Zinsperioden. 


Löst man diese Gleichung nach den anderen Varia- 


blen auf, so kann man - wenn drei dieser Werte gegeben 
sind - den jeweils fehlenden berechnen: 
KN 
KO een 


(1 + P/100)TN 


LOG(KN/KO) 
N = —_ 
E06(4: =#- P/100) 
P = ((KN/KO)T(1/N) - 1) * 100 


Weitere Programme zu wirtschaftlichen Themen (z.B. 
Optimierung, Lohnsteuerberechnung, Zeitreihenanalyse) 
sind in dem Buch: Elsing/Herrmann: "wirtschaft auf dem 
Commodore 64" enthalten. 
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i® REM. „onnuunnaous essen unse nun nn nn . ZINSESZ INS-BERECHNUNGEN 
26 PRINT"M 3 ZINSESZINS-BERECHNUNGEN " 

ZU BEN SG nn .nnnncnn „nenne... » RÜUNDUNGSFUNKTION 
38 DEF FN R{X) = INT(X#100+.5) 7108 

35 PRINT "STMsieleinieiniaieieinieein FUER DEN GESUCHTEN WERT "RETURN”" 

48 PRINT " EINGEBEN!" 

45 PRINT "Salmaimn"; 


3@ INPUT " ENDKAPITAL: "ıKN$ 
35 PRINT "SIMINItaitnin" ; 

68 INPUT ” ANFANGSKAPITAL: ";K0$ 
65 PRINT ":Iaimtmisinisiniein” ; 

78 INPUT" ZAHL DER ZINSPERIDDEN: ",N$ 


88 PRINT "SIMIMinisieinmeinteiaig" 5 
96 INPUT" ZINSSATZ PRO PERIODE (IN 9:":P$ 
108 PRINT" SIAIMIIMIaISTeiKTnIninteinieTe]® 5 


185 PRINT" "= REM 48 LEERZ. 
118 REM CZ=16: C5=1: GOSUB 1088 
115 PRINT" 2 


128 IF KN$="" THEN GOTO 219 

156 IF K0$="" THEN GOTO 288 

148 IF N$="" THEN 60T0 359 

158 IF P$="" THEN GOTD 420 

155 PRINT" STEIMIaIsTaTaletnteDiaTetntnDrtete]" 

166 PRINT"x##x*%** FALSCHE EINGABE!" 
165 FOR T=1 TO 808: NEXT T: CLR 


178 GDOTO 20 
175 PRINT" SIMIRDISDDaTTRTNINDADKDRTSTRDEDKTADKTNDN" 
188 PRINT" ENDE: E WEITER: RETURN” 


185 GET A$: IF A$="" THEN G0T0 185 
198 IF A$="E" THEN END 
195 CLR: GOTO 28 
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208 REM. nun. ernennen BEREEHNUNGEN 
2IO REN GE seaaeienen leiser BERECHNUNG DES ENDKAPITALS 
228 K@=VAL (Kö$) 

238 N=VAL (N$) 

248 P=VAL(P$) 

256 KN=K@# (1+P/100) N 

255 PRINT" SInieisin"; TAB (30) 5 

268 PRINT "3"3FN R({KN) 

278 6010 175 

286 REM. nenn. EEE EERRRERS . „BERECHNUNG DES ANFANGSKAPITALS 
298 KN=VAL (KN$) 

368 N=VAL (N$) 

318 P=VAL(P$) 

32@ K@=KN/ (1+P/180) tN 

325 PRINT" SIMIeleiniei® 5; TAB (30) 5 

338 PRINT "3"3FN R(K®) 

348 G0TO 175 

3560 REM. onnuennnnnnnnnnnnnnne nun nenn. BERECHNUNG DER ZINSPERIODEN 
368 KO=VAL (K0$) 

378 KN=VAL (KN$) 

388 P=VAL (P$) 

398 N={LOG (KN/K) ) / (LOG (1+P/188)) 

395 PRINT ";SInInteinieisisinini" 3 TAB (30) 5 

4808 PRINT "3"5 FN R{N) 

418 G0T0 175 

420 REM. ..... ee „.„ BERECHNUNG DES ZINSSATZES PRO PERIODE 
438 KO=VAL (KO$) 

4408 KN=VAL (KN$) 

450 N=VAL (N$) 

4608 P=106* ( (KN/Kö) T(1/N)-1) 

465 PRINT "SIMISTeInisieTeinininiel" 3 TAB (30) 5 

478 PRINT "3"5 FN R(P)53" %" 

480 GOTO 175 


READY. 


236 


ZINSESZINS-BERECHNUNGEN 


ENDKAPITAL: ? 20610.32 
ANFANGSKAPITAL: ? 19800 
ZAHL DER ZINSPERIODEN: ? 1@ 


ZINSSATZ FRO FERIODE (IN 4:7 7.5 


ENDE: E WEITER: RETURN 
ENDKAPITAL: ? 20006 


ANFANGSKAPITAL: ? 15485.29 


ZAHL DER ZINSPERIODEN: 


J 
an 


ZINSSATZ PRO PERIODE (IN %):? 5.25 
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Sortier - Verfahren 


Im foolgenden werden vier verschiedene Sortierver- 
fahren vorgestellt, die sich sowohl in Bezug auf den zu 
Grunde liegenden Algorithmus, als auch in Hinblick auf 
die Sortierzeiten ganz erheblich voneinander unter- 
scheiden. 


Generell kann man sagen, daß das Sortieren umso 
länger dauert, je einfacher die Sortiermethode ist (und 
umgekehrt). Die Programme sind nach zunehmender Kom- 
plexität angeordnet. 


Es ist jeweils eine Version zum Sortieren von 
Zahlen und eine zum Sortieren von Strings angegeben. 


Abschließend werden alle vier Verfahren miteinan- 
der verglichen, so daß Sie sofort sehen können, welches 
Programm für eine bestimmte Anwendung am besten geeig- 
net ist. 


Alle Sortierprogramme wurden als Unterprogramme 
geschrieben, so daß sie sich leicht in eigene Programme 
einbauen lassen. Dies wird auch dadurch unterstützt, 
daß in den Unterprogrammen nur Variablen benutzt wer- 
den, deren Name mit dem Buchstaben 'X' beginnt. So ist 
es leicht zu vermeiden, daß die Variablen aus dem 
Hauptprogramm mit denen aus dem Unterprogramm in Kon- 
flikt geraten. 
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Bubble -Sort 


Der Vorteil dieses Sortierverfahrens liegt darin, 
daß es sehr einfach ist: die Liste der zu sortierenden 
Daten wird solange wiederholt durchlaufen, bis die 
Daten sortiert sind. Dies wird dadurch erreicht, daß 
jeweils zwei aufeinanderfolgende Daten miteinander ver- 
glichen werden. Stehen sie bereits in der richtigen 
Reihenfolge, wird der zweite Wert mit dem nachfolgenden 
verglichen; stehen die beiden Daten jedoch in der fal- 
schen Reihenfolge, so werden sie miteinander ver- 
tauscht. Dadurch 'sprudeln' die größeren Daten allmäh- 
lich ans Ende der Liste (bubble = Blase, Sprudeln). Das 
Sortieren ist beendet, wenn während eines Durchgangs 
kein Vertauschen erfolgte. 


Eine sinnvolle Anwendung dieser Sortiermethode ist 
allerdings auf nur sehr wenige Daten begrenzt, da die 
Sortierzeiten sehr schnell zunehmen. Für N Durchgänge 
mit je N-1 Vergleichen werden bis zu N*(N-1) Vergleiche 
benötigt. Sind andererseits die zu sortierenden Daten 
bereits vollständig sortiert, so ist das Verfahren 
bereits nach einem einzigen Durchlauf (also nach N-1 
Vergleichen) beendet. 
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FLuß - Diagramm: Bubble Sort 


18 
20 
3® 
39 
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45 
3® 
68 
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REM: SER ae innen BUBBLE - SORT 


PRINT" 3 BUBBELSORT 2 

PRINT"MM} WIEVIELE ZUFALLSZAHLEN SOLLEN SORTIERT WERDEN?" 

REM. “uses usoneonnone ..anonnus .ennnenessusnnnnenn nn «EINGABETEIL 
PRINT: INPUT" ANZAHL"5XN 


DIM XCXN+1D) 

FOR I=1 TO XN 

X{D)=RND(1) 

NEXT I 

T1$="080800" 

GOSUB 1809 

REM. sei ee aunununnunnsunnnnnnne na BILDSCHIRMAUSGABE 
FOR I=1 TOD XN 


188 PRINT I5TAB(B)5X(IT) 

116 NEXT I 

120 END 

100@ REM nnnnenannnunnunenununnn nun nn nn. BÜBBLE-SORT UNTERPROGRAMM 
1885 XF=® 

181@ FOR XI=1 TO XN-1 

1028 IF X(XD<=X(XI+1) THEN GOTO 1070 

1838 XT=X (xl) 

1848 X(XD)=X1XI+H) 

1050 X(XI+1)=XT 

1068 XF=1 

1878 NEXT XI 

1858 IF XF=1 THEN 60T0 1000 

1898 PRINT" SORTIERZEIT FUER"3XN5 "WERTE: " 

1188 PRINT "mM "5MID$(T1$,3,2)5" MINUTEN "5 

111® PRINT RIGHT$(TI$,2)5" SEKUNDEN " 

1128 PRINT"HEM AUSGABE DER WERTE --> TASTE DRUECKEN" 
1138 GET A$: IF A$="" THEN 60T0 1130 

1146 PRINT 

1156 RETURN 


READY. 
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18 REM. „ons ncn0n. uns esonneeansun nn „ BUBBLE-SORT FUER BUCHSTABEN 


26 PRINT" 3 BUBBELSORT . 
380 PRINT"MM WIEVIELE BUCHSTABEN SOLLEN SORTIERT": PRINT” WERDEN?" 
33. REN. sense ee Sees ......EINGABETEIL 


48 PRINT: INPUT" ANZAHL"5XN 

45 DIM X$(XN+1) 

5% FOR I=1 TO XN 

68 X$1)=CHR$ (RND (1) *26+65) 

78 NEXT I 

75 T1$="990890" 

88 GOSUB 1898 

BI REM 2er anenennenenenan . BILDSCHIRMAUSGABE 
98 FOR I=1 TO XN 

188 PRINT I5TAB(B)5X$(]) 

118 NEXT I 

120 END 

1008 REM nnnnannnnennnunennneenennn ne. BUBBLE-SORT (UNTERPROGRAMM) 
1805 XF=® 

1816 FÜR XI=1 TO XN-1 

1028 IF X$(XD)<=X$(XI+1) THEN 6OTO 1970 

1830 XT$=X$ (XI) 

1048 X$(XD)=X$ (XI+1) 

1050 X$(XI+1)=XT$ 

1068 XF=1 

1870 NEXT XI 

1080 IF XF=1 THEN GOTO 1000 

1090 PRINT""I SORTIERZEIT FUER" 5 XN5 "BUCHSTABEN: " 
1100 PRINT"M "3MID$(TI$,3,2)5" MINUTEN "5 

1110 PRINT RIGHT$(TI$,2)5" SEKUNDEN " 

112@ PRINT"=III AUSGABE --> TASTE DRUECKEN" 

1130 GET A$: IF A$="" THEN 60T0 1139 

1140 PRINT | 

1150 RETURN 


READY. 
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Sortieren durch Einfügen 


Beim Sortieren durch direktes Einfügen wird - 
beginnend mit dem zweiten Element (i=2) bei jedem 
Schritt das nächste (i-te) Element herausgegriffen und 
an der richtigen Stelle eingefügt (und i um 1 erhöht). 


Für die zu sortierende Zahlenfolge 


6 19 [4 1 3 2 


ergeben sich somit folgende Schritte bis zur voll- 
ständigen Sortierung: 


i=2 6 15 7 4 3 2 
i=3 6 7 15 4 3 2 
i=4 1 6 7 15 3 2 
i=5 1 3 6 7 15 2 
i=s6 1 2 3 6 T 15 


Literatur: N. Wirth: Algorithmen und Datenstrukturen. 
Teubner, Stuttgart 1979, 92-94 
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Fuß- Diagramm: Einfügesort 


78 


REM. „ounenannne een SORTIEREN DURCH EINFUEGEN 
PRINT" 3 SORTIEREN DURCH EINFUEGEN a | 
PRINT"Me} WIEVIELE ZUFALLSZAHLEN SOLLEN SORTIERT WERDEN? " 
REM. eaussunnn Menu nenn un nn nn n u num „ „EINGABETEIL 
FRINT: INPUT" ANZAHL" XN 

DIM XtXN) 

FOR I=1 TO XN 

XI) =RND(1} 

NEXT I 

T1$="800000" 

GOSUB 10980 


REMz n.. . PRESSE TREI FEN ERRTER een BEN BILDSCHIRMAUSGABE 
FOR I=1 TD XN ! 


182 PRINT I5TAB(B)5XD) 

110 NEXT I 

126 END 

1888 REM. „ao2@0unsonnunn. „SORTIEREN DURCH EINFUEGEN (UNTERPROGRAMM) 
1818 FOR XJ=1 TO XN-1 

1828 XB=X (XJ+1) 

1838 FOR XI=XJ TD 1 STEP -1 

1048 IF XB>=X (XI) THEN 1088 

1850 X(XI+1)=X(XD 

1068 NEXT XI 

1878 XI=d 

1680 XCXI+1)=XB 

1878 NEXT XJ 

1180 PRINT"MMM SORTIERZEIT FUER"5XNS " ZUFALLSWERTE: 
1118 PRINT: PRINT" "5MID$(T1$,5,2)5" MINUTEN "5 

1128 PRINT RIGHT${TI$,2)5" SEKUNDEN" 

1138 PRINT" MAN AUSGABE DER WERTE --> TASTE DRUECKEN" 
1148 GET A$: IF A$="" THEN GOTD 1148 

1158 PRINT 

11&6 RETURN 


READY. 
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REM. ouusuns Benunnunne SORTIEREN DURCH EINFUEGEN FUER BUCHSTABEN 
PRINT" 3 ‚SORTIEREN DURCH EINFUEGEN = 
PRINT"MM WIEVIELE BUCHSTABEN SOLLEN SORTIERT":PRINT" WERDEN?" 


REM. .unos0u0uuunnunnn en u nun nenn nun nenn een EINGABETEIL 


PRINT: INPUT" ANZAHL"3XN 
DIM X${XN) 

FOR I=1 TOD XN 

X$(I) =CHR$ (RND (1)#26+65) 
NEXT I 

TI$="000000" 

GOSUB 1008 


. REM. . nun nu 22 02525 unan.».0 sonne: 0.2.0 = IEESEEWeNT . BILDSCHIRMAUSGABE 


FOR I=1 TO XN 


186 PRINT I5TAB(8)5X$(I) 

110 NEXT I 

128 END 

1000 REM. @annsaanennn „SORTIEREN DURCH EINFUEGEN (UNTERPROGRAMM) 
1018 FOR XJ=1 TO XN -1 

1020 XB$=X$ (XJ+1) 

1030 FOR XI=XJ TO 1 STEP -1 

1848 IF XB$>=X$(XI) THEN 1080 

1058 X$(XI+1)=X$ (XD) 

1868 NEXT XI 

1870 X1=0 

1088 X$(XI+1)=XB$ 

1098 NEXT XJ 

1188 PRINT" SORTIERZEIT FUER" 5 XN5 "BUCHSTABEN: " 
1118 PRINT: PRINT" "5MID$(TI$,3,2)5" MINUTEN "5 

1128 PRINT RISHT$(TI$,2)5" SEKUNDEN" 

1138 PRINT""II AUSGABE DER WERTE --> TASTE DRUECKEN" 
1148 GET A$: IF A$="" THEN 60TO 1148 

1158 PRINT 

1160 RETURN 


READY. 
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Ss HE EEE 5 8.R-T 


SHELLSORT (von D.L.Shell) ist ein Sortierverfahren 
durch Einfügen mit abnehmender Schrittweite. 


Sind z.B. acht Elemente zu sortieren, so werden 
zunächst alle Elemente, die vier Positionen voneinander 
entfernt sind, zusammengefaßt und getrennt sortiert 


(4-fach-Sortierung). Danach werden die Elemente wieder 
in Gruppen zusammengefaßt, die zwei Positionen vonein- 
ander entfernt sind und wiederum sortiert (2-fach- 


Sortierung). Schließlich werden in einem letzten Durch- 
gang alle Elemente in einer gewöhnlichen oder 1- 
Sortierung geordnet. 

Ist also z.B. folgende Zahlenreihe zu sortieren: 


44 58 12 42 94 18 6 67 


so ergibt die 4-fach-Sortierung: 


44 18 6 42 94 55 12 67 


die 2-fach-Sortierung ergibt: 


6 18 = 42 44 3 94 67 


die 1-Sortierung ergibt: 


6 12 18 42 44 55 67 94 


Die Methode der kleiner werdenden Schrittweiten 
liefert jedoch noch bessere Ergebnisse, wenn man 
Schrittweiten verwendet, die keine Potenzen von 2 sind. 


Literatur: Shell, D.L.: A Highspeed Sorting Procedure. 
Comm. ACM 2, Nr. 7 (1959), 30-32 
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xB(x1)= INT(N/5)+1 
x3(1)=1 


4) 


JG... 


X(KrX1)=x(K 


X(K+rx1) = X 


Js J+A > 
N 

nein 
T=1-4 = 

neın 


fLuß- Diagramm: Shellsort 


18 REM... » as asw aan sa 2. . 2» nn mn = 8 Said LSERT 


28 PRINT"M 3 |  — SHELLSORT E 
3® PRINT"MM WIEVIELE ZUFALLSZAHLEN SOLLEN SORTIERT WERDEN" 


35 REMecnanan nn ee ae ergeedsieteder EINSABETEIL 
48 PRINT: INPUT" ANZAHL"3XN | 
45 DIM X(XN) „XB(XN) 

5@ FOR I=1 TO XN 

68 X(TD) = RND(1) 

7@ NEXT I 

75 TI$="000000" 

8® GOSUB 1000 

BS-REM.a a ee esse ee BILDSCHIRMAUSGABE 
98 FOR I=1 TO XN 

188 PRINT I5TAB(B)5X(T) 

110 NEXT I 

120 END 

1808 REM. unnnunnnn ER “nun... SHELLSORT (UNTERPROGRAMMM) 
1818 X1=8: X2=0 

1828 FOR XI=1 TO 6 

1830 XB(XI) = XB(XI-1)*4+1 

1848 IF XB(XI) <= XN /2 THEN X1=Xl 

1850 NEXT XI 

1860 XB(X1)=INT (XN/S) +1 

1878 XBti)=1 

1888 FOR XI=X1 TOD 1 STEP -1 

1098 X1=XB(XT) 

1108 FOR XJ = X1 TO XN 

1116 X2=X(XJ) 

1128 FOR XK=XJ-X1 TO ® STEP -X1 

1130 IF X2 > X(XK) THEN 1160 

1148 X(XK+X1)=X (XK) 

1150 NEXT XK 

1168 XtXK+X1) = X2 

1170 NEXT XJ 

1180 NEXT XI 
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1178 PRINT"MEM SORTIERZEIT FUER"3XN5 "WERTE: " 
1208 PRINT"M "5MID$(TI$,3,2)5" MINUTEN "5; 
1218 PRINT RIGHT$ (TI$,2)5" SEKUNDEN" 

1228 PRINT" HMM AUSGABE --> TASTE DRUECKEN" 
125380 GET A$: IF A$="" THEN GOTO 1230 

1240 PRINT 

1250 RETURN 


READY. 
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18 
20 
38 
39 
40 
45 
so 
68 
76 
75 
88 
85 
90 


2 NS IRREER EN uunsennennnnenenn SHELLSORT FUER BUCHSTABEN 
PRINT"IIM 3 OSSORTT 
PRINT" WIEVIELE BUCHSTABEN SOLLEN SORTIERT WERDEN" | 
REMennnnn. ee ee en ee „EINGABETEIL 
PRINT: INPUT" ANZAHL";XN | | Sn 
DIM X$(XN) ,XB(XN) 

FOR I=1 TO XN 

X$(I) = CHR$(RND (1)#26+65) 

NEXT I 

TI$="998800" 

GOSUB 1980 

REN ee PER DEFENCE BILDSCHIRMAUSGABE 
FOR I=1 TO XN 


188 PRINT I15TAB{(8);X$(D) 

116 NEXT I 

126 END 

10@8 REM. „so unonneunnenenene nun nen = SHELLSORT (UNTERPROGRAMMM) 
1810 X1=0: X2$="" 

1020 FOR XI=1 TO 6 

1050 XB(XT = XB(XI-1)#4+1 

1848 IF XB(XTI) <= XN/2 THEN X1=X1 
1058 NEXT XI 

1868 XB{X1DD=INTÜXN/S) +1 

1870 XBt1l)=1 

1888 FOR XI=X1 TO 1 STEP -1 

1098 X1=XB(XI) 

118@ FOR XJ=X1 TD XN 

1118 X2$=X$(XJ) 

1126 FOR XK = XJ-X1 TO 8 STEP -X1 
1156 IF X2$ > X$(XK) THEN 1160 
1148 X$XK+X1)=X$0XK) 

1150 NEXT XK 

1166 X$(XK+X1) = X2$ 

11780 NEXT XJ 

1180 NEXT XI 
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1198 FRINT"HMN SORTIERZEIT FUER"5XN; "BUCHSTABEN: " 
1288 PRINT"N "5MID$(TI$,3,2)5" MINUTEN "5; 

1218 PRINT RIGHT$(TI$,2)5" SEKUNDEN" 

1228 FRINT"MMM AUSGABE --> TASTE DRUECKEN" 

1250 GET A$: IF A$="" THEN GOTO 1238 

1248 PRINT 

1258 RETURN 


READY. 
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a LIERK 80, FT 


QUICKSORT (von C.A.R. Hoare) ist ein Algorithmus, 
der am einfachsten rekursiv formuliert werden kann: 


Man wählt ein beliebiges (z.B. das mittlere) Be- 
zugselement aus der zu sortierenden Zahlenreihe. Durch 
Vertauschen werden nun alle Elemente, die kleiner sind 
als das Bezugselement, auf die linke Seite, alle Ele- 
mente, die größer sind als das Bezugselement, auf die 
rechte Seite des Bezugselementes gebracht. 


Gegeben sei z.B. die folgende Zahlenreihe 
s 20 4 18 9 5 3 


wobei die 9 als Bezugselement dienen soll. Man 
sucht nun von links aus durch das Feld (Index XI) nach 


einem Element, das größer ist als 9: in unserem Fall 
die 20. Dann durchsucht man das Feld von rechts aus 
(Index XJ) nach einem Element, das kleiner ist als das 
Bezugselement, hier also die 3. Diese beiden Elemente 


werden im nächsten Schritt vertauscht: 
5 3 4 18 9 5 20 
Die Suche wird dann im Bereich der ausgetauschten 


Elemente fortgesetzt, sodaß beim nächsten Schritt die 
18 und die 5 vertauscht werden: 


5 3 4 5 9 18 20 
würde man so weitermachen, würden im nächsten. 
Schritt die 18 und die 5 wieder vertauscht: das 


Verfahren muß also abgebrochen werden, wenn man bei der 
Suche von links und rechts auf das gleiche Feldelement 
stößt. 


Damit stehen nun links vom  Bezugselement nur 
kleinere und rechts nur größere Feldelemente. 


Auf die so entstandenen beiden Teilfelder wendet 
man wieder das gleiche Verfahren an, und zwar solange, 
bis jedes Teilfeld nur noch aus einem Element besteht. 
Damit ist dann das ganze Feld sortiert. 
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Da eine rekursive Formulierung in BASIC nicht 
möglich ist, benötigt man hier ein Hilfsfeld, das als 
Stapelregister (Stack) dient. Darin wird notiert, 
welcher Teil des zu sortierenden Feldes noch bearbeitet 
werden muß. (Für die Dimension dieses Feldes ergaben 
sich beim Sortieren von bis zu 1000 Zufallszahlen Werte 
zwischen 9 und 13). 


Literatur: Hoare, C.A.R.: QUICKSORT. Comp. J. 5, Nr. 1 
(1962), 10-15 
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Vertausche 
X(T) mıf ya 
X(]) 

1=1+4 


123-4 nein 


nein 


tLuße Diagramm Sicert 


10 REMennnnnnaennnnnunn PEN NIC REN TEEENNFREEENINEHR GERNE HE HIRSRRER BUICKSORT 
28 PRINT"IN 3 QUICKSORT " 

30 PRINT"=Me} WIEVIELE ZUFALLSZAHLEN SOLLEN SORTIERT" 

48 PRINT"= WERDEN"3: INPUT XN 

59 DIM X(XN),XT(28,1) 

&0 FOR I=1 TO XN 

78 X{I)=RND(1) 

86 NEXT I 

90 T1$="900099" 

100 GOSUB 1900 

MOREN.A ee BILDSCHIRMAUSGABE 
120 FOR I=1 TO XN 

130 PRINT I5TAB{B)5X(TD) 

148 NEXT I 

150 END 

1008 REM. nennen nnnnnnnn BER RESEUTE LINE .QUICKSORT {UNTERPROGRAMM) 
1818 XS=1: XT(1,8)=1: XT(1,1)=XN 

1028 XL=XT(X5,8): XR=XT(XS,1): XS=X6-1 

1036 XI=XL: XJ=XR 

1848 XY=XCINT((XL+XR)/2)) 

1050 IF X(XIDD<XY THEN XI=XI+1: GOTO 1850 

1868 IF X(XT>XY THEN XJ=XJ-1: GOTD 1868 

1078 IF XI<=XJ THEN XW=X (XD): XXD=X(XD: X0XJ)=XW: XI=XI+l 

1088 IF XI<=XJ THEN XJ=XJ-1: 60TO 1059 

1096 IF XI<XR THEN X5=X5+1: XT(XS,0)=XI: XT(XS,1)=XR 

1108 XR=XJ 

1118 IF XL<XR THEN GOTD 1930 

1120 IF XS>® THEN G0TD 1928 

1130 PRINT" SORTIERZEIT FUER";XN5 " ZUFALLSZAHLEN: " 

1148 PRINT" "5MID$(TI$,3,2)5" MINUTEN "5RIGHT$(TI$,2)5" SEKUNDEN" 
1150 PRINT "MI AUSGABE DER ZAHLEN -> TASTE DRUECKEN" 

1158 GET Z$: IF Z$="" THEN GOTO 1169 

1178 PRINT 

118@ RETURN 


READY. 
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16 BEN beitieibee BUICKSORT FUER BUCHSTABEN 
20 PRINT"M q BUICKSORT u 

30 PRINT" WIEVIELE BUCHSTABEN SOLLEN SORTIERT" 

46 PRINT"H WERDEN"3: INPUT XN 

58 DIM X${XN),XT(20,1) 

&8 FOR I=1 TO XN 

78 X${I)=CHR$(RND (1) #26+65) 

B6 NEXT I 

98 TI$="000000" 


GOSUB 1909 


REM. 2onononuue amanaunn „un... AUSGABE DER SORTIERTEN BUCHSTABEN 
FOR I=1 TO XN 
PRINT I1;5TAB(8)5X$(D) 


148 NEXT I 


1818 
1020 
1950 
1040 
1050 
1868 
1070 
1088 
10970 
1188 
1118 
1120 
1150 
1140 
1156 
1160 
1170 
1180 


REN. ee QUICKSORT-UNTERPROGRAMM 
X5=1: XT(1,80)=1: XTt1,1)=XN 

XL=XT(XS,0)2 XR=XTIXS5,1): X5=X5-1 

XI=XL: XJ=XR 

XYS=X$ 1INTÜCXL+XR) /2)) 

IF X$(XD<SXY$ THEN XI=XI+1l: GOTO 1050 

IF X$tXD >XY$ THEN XJ=XJ-1: GOTD 1058 

IF XI<=XJ THEN XWE=X$ (XI): X$CXDI=X$CXT): XS CXT)=XWE:XI=XIH1 
IF XI<x=XJ THEN XJ=XJ-1: GOTO 1959 | | 

IF XI<XR THEN X5=XS5+1: XT(X5,0)=X1: XTIXS,DI=XR 

XR=XJ 

IF XLSXR THEN GOTO 1838 

IF X5>8 THEN GOTO 1020 

PRINT" KE} SORTIERZEIT FUER"5 XN; "BUCHSTABEN: " 

PRINT" ";5MID$(TI$,3,2)35" MINUTEN "SRIGHTS(TIS,2) 5" SEKUNDEN" 
PRINT "Mm AUSGABE -> TASTE DRUECKEN" 

GET Z$: IF Z$="" THEN GOTO 1168 

PRINT 

RETURN 


READY. 
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Vergleich der Sortierzeiten für N Zufallszahlen 


(in Sekunden) 


N Bubblesort Einfügesort Shellsort Quicksort 


e) 049 0.86 0,8 0,8 

10 10 0:8 0,9 1.0 

20 9.93 1:9 EG 2.0 

50 38 068 04% 7.8 

100 118 39 14 1040 

200 632 148 36.5 39.9 
500 _ 947 112 112 
1000 _ _ 262 252 


Die Daten aus dieser Tabelle sind in der folgenden 
Abbildung auch noch grafisch dargestellt. Die jeweils 
kürzesten Sortierzeiten für einen bestimmten Wert von N 
sind in der Tabelle markiert. 


Wie Sie sehen, ist das einfache Bubblesort das mit 
Abstand schlechteste Sortierverfahren, wenn mehr als 10 
Werte zu sortieren sind. Andererseits ist es für sehr 
wenige Daten sogar noch etwas günstiger als die kompli- 
zierteren Algorithmen. 


Für bis zu etwa 20 Daten ist das Sortieren durch 
Einfügen am besten geeignet und bietet auch noch für 
etwa bis zu 50 Daten durchaus akzeptable Sortierzeiten. 


Sind die Daten, die den Sortierprogrammen übergeben 
werden, bereits vorher sortiert, so wird dies vom Ein- 
füge-Sortieren übrigens am schnellsten "erkannt"; in 


solchen Fällen ist es den beiden kompexeren Verfahren 
Shellsort und Quicksort weit überlegen. 


Sind etwa 50 bis 200 Daten zu sortieren, ist das 
‚Shellsort-Verfahren am schnellsten, wenngleich der 
Unterschied zum Quicksort nur gering ist. Die Differenz 
zwischen diesen beiden Algorithmen vergrößert sich 
Jedoch allmählich, wenn die Zahl der zu sortierenden 
Daten zunimmt: bei mehr als 500 Daten ist Quicksort das 
schnellste Sortierverfahren. 
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sek. 


200 


100 


50 


20 


BUBBLE-SORT 


100 


200 


EINFÜGE-sopr 


SORTIERZEITEN 


1000 


ZUFALLS= 
ZAHLEN 


Mit diesem Programm wird das Kartenspiel 17 und 4 
nachgebildet. Abwechselnd "ziehen" der Spieler und der 
Computer jeweils eine Karte. Wer insgesamt mehr als 21 
Augenzahlen erreicht, hat verloren, sonst gewinnt die 
höhere Augenzahl. 


Zum "Ziehen" der Karten werden mit der Funktion 
RND Zufallszahlen im Bereich von 2 bis 4 und von 7 bis 
11 erzeugt. Die Strategie des Computers besteht darin, 
nur dann noch eine weitere Karte zu nehmen, wenn die 
Summe der Augenzahlen nicht größer als 15 + 1 ist. Auch 
diese Entscheidung erfolgt wieder zufallsbedingt. 
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18 REM. „oo sun0nnn nn. es samen enesuenunnncnn „DLEBZEHN UND VIER 


28 PRINT"M 3 SIEBZEHN UND VIER 2 
38 PRINT:PRINT SPE(N5"(SPIEL BEENDEN MIT: E)" 
SI REM seen zeeeuenennennnnn nn «KARTEN ZIEHEN 


40 S1=d: Ci=® 

50 5=0: [L=0: E=1: 5$="J":A$="" 

60 I=% 

78 IF 5>=21 THEN A$="N” 

80 IF A$="N" THEN 220 

85 CZ=6: C[CS5=1: GDSUB 750 

98 PRINT"WILLST DU EINE KARTE? (J/N)"5: GET A$ 
95 IF A$="" THEN GOTO 85 

188 CZ=12: CS=1: GOSUB 759 

11@ IF A$="E" THEN END 

120 IF A$="N" THEN G0TD 220 

138 X=INT(10#RND(1))+2 

'140 IF X>4 AND X<X7 THEN 60T0 130 

150 IF Z=1 THEN 60T0 430 

155 REM. „ouunnunonnnunneannnene nn nun nn un nn nn nn AUGENZAÄHL AUSGEBEN 
168 5=5+X 

170 CZ=8: CS=15: GOSUB 750 

175 PRINT"AUGENZAHL —> "5 

ı9@ IF X>21 THEN PRINT"3"; 

208 CZ=8: C5=30: 60SUB 750: PRINT 5; 
220 Z=1 

236 IF E=1 THEN GOTD 130 

248 IF A$="J" THEN GOTO 66 

258 CZ=14: C5=1: GOSUB 756 

255 PRINT"ICH HABE"C"AUGEN: "5; 

26@ IF C>21 AND S>21 THEN 388 

278 IF C<>S5 THEN 308 
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REM. 2uuunonunennsun as uunun ann nenn nn ne ... „ANGABE DES GEWINNERS 
C2=-15:05=1: GOSUB 750 

PRINT"xx=* UNENTSCHIEDEN! "5 

GOTD 398 


IF C>21 THEN GOTD 315 

IF 5>21 OR C>S THEN 60T0 350 

C2=15: CS5=1: 60SUB 750 

PRINT">>> DU HAST GEWONNEN! '! "; 

51=51+1 

G60TO 398 

C2=15: CS=1: 60SUB 750 

PRINT"... DIESMAL HABE ICH GEWONNEN!"; 

c1=C1+1 

G0OTO 398 

CZ=15: CS=1: 60SUB 750 

PRINT"DAS WAR FUER UNS BEIDE NICHTS ...";5 

CZ=18: CS=1: 60SUB 758: PRINT" NEUES SPIEL? (J/N"; 

GET SP$: IF SP$="" THEN GOTO 395 

BREMSE ee FE RER „nennen nen “ANGABE DES SPIELSTANDES 
PRINT"7J": CZ=1: C5=1: GOSUB 750: PRINT"SPIELSTAND: " 
CZ=3: CS=1: 60SUB 750:PRINT" DU GEGEN MICH "5; 

PRINT" 3"5515 "1 :2"5C15 "HB " 

IF SP$="N" THEN PRINT" MEI": END 

CZ=15: CS=1: GOTO 5 

REN: A En eu COMPUTERZUG 
IF C>14+INT(3#RND(1)) THEN G0TD 470 

C=C+X 

C2=12: CS=1: G0SUB 75%: PRINT"ICH HABE GEZOGEN ... .; 
G0TO 68 

E=® 

CZ1=12: CS=1: 60SUB 750: PRINT"...ICH ZIEHE NICHT MEHR!"; 
G0TO 60 
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ISO REN. ana auuuneunnnaneen « LURSORPOSITION 
768 C1=1024+48*C7 

778 POKE 209, CZAND2S5 

7880 POKE 210,C2/256 

798 POKE 211,05 

868 RETURN 


READY. 


SIEBZEHN UND VIER 


{SPIEL BEENDEN MIT: E) 
WILLST DU EINE KARTE? (J/N 


AUGENZAHL --> 18 


„.„.ICH ZIEHE NICHT MEHR! 
ICH HABE 23 AUGEN: 
>>> DU HAST GEWONNEN! ! 


NEUES SPIEL? (J/N) 
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NIM - Spiel 


Zwei Spieler nehmen abwechselnd von einem Haufen 
Streichhölzer jeweils maximal z.B. 3, mindestens jedoch 
1 Streichholz weg. Wer das letzte Streichholz wegnehmen 
kann, gewinnt. 


Vor Spielbeginn wird die Gesamtzahl der Hölzer 


sowie das Maximum pro Zug angegeben. Anschließend 
nehmen der Computer und der Spieler abwechselnd eine 
beliebige Zahl von Hölzern - innerhalb der zulässigen 


Grenzen natürlich! 


Falls Sie das Spiel nicht kennen, werden Sie fest- 
stellen, daß Sie regelmäßig verlieren. Es gibt nämlich 


eine eindeutige Gewinnstrategie, durch die der Sieger 
schon vom ersten Zug an feststeht, wenn die Strategie 
durchgehalten wird! - Es soll hier nur ein Hinweis auf 
die Spielstrategie gegeben werden: versuchen Sie her- 


auszubekommen, welche Positionen (Hölzchenzahlen) Ver- 
luststellungen darstellen. Im übrigen steht die Strate- 
gie ja auch noch (fast) im Klartext im Programm. 
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18 REM. sans nn ei sunuseennnnnnns„EINFÄCHES NIM-SPIEL 
28 PRINT" 3 EINFACHES NIM-SPIEL . 
38 PRINT"MEM VON EINEM HAUFEN HOELZER NEHMEN ZWEI" 

48 PRINT"M SPIELER ABWECHSELND MINDESTENS JE EINS," 

56 PRINT" MAXIMAL JEDOCH Z.B. DREI STUECK." 

68 PRINT"M WER DEN REST WEGNIMMT, HAT GEWONNEN!" 

78 INPUT"MM WIEVIELE HOELZER";N: PRINT 

88 INPUT" MAXIMUM PRO ZU6";M 


98 PRINT"IIIH------------ a 

95 IF A$<>"" THEN PRINT" NEUES SPIEL MIT"5N5 "HOELZERN: " 

99 REM..... ER ENENTSSE HIER IERCEUREL EL EIIHRREL TER, ON 2n2.00 0» COMPUTERZUG 
108 NN= 


118 X=N/ (M+1) 

128 IF X=INT(X) THEN GDTO 148 

130 N=(M+1)#INTOO +1 

148 N=N-1 

158 PRINT" =IRIME"; TAB(18)5 "ICH REDUZIERE AUF"SNS"N * 

168 IF N>® THEN GOTD 280 

17@ PRINT" Meat ICH HABE GEWONNEN! — WEITER (J/N) "5: INPUT A$ 
1868 IF A$="N" THEN END 

198 GOTO 76 

1997 REM. „oo... nonnansunnnenennenune sunmsrunenunnnunnne. SPIELERZUG 
208 PRINT" =Irleinieelei WIEVIEL NIMMST DU"; 

218 INPUT Z 

22@ IF Z<1 OR Z>M THEN 208 

230 N=N-Z 

248 PRINT 

250 PRINT" SIMIIMeintenme DU REDUZIERST AUF"SNS"I " 

268 PRINT 

278 IF N>® THEN G0OTOD 110 

288 PRINT" MERAN DU HAST GEWONNEN! -— WEITER (J/N)"5= INPUT A$ 
298 IF A$="N" THEN END 

308 N=INT {RND (1) *NN+10) 

318 NN=N 
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328 PRINT"II------------------- 
330 PRINT""] NEUES SPIEL MIT"3N5 "HOELZERN" 

349 GDTO 208 

350 END 


READY. 


EINFACHES NIM-SPIEL 


VON EINEM HAUFEN HOELZER NEHMEN ZWEI 
SPIELER ABWECHSELND MINDESTENS JE EINS, 
MAXIMAL JEDOCH Z.B. DREI STUECK. 


WER DEN REST WEGNIMMT, HAT GEWONNEN! 


WIEVIELE HOELZER? 15 


MAXIMUM PRO ZUG? 3 
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mn en men Ste anne at En un ER Helene AaEEe arm Gina Gurei GENE Mm REED Aerrn amt GEniEE EI Gin) GinaEe GAR GREEN GEEEED Ga AA GET GENE HERNE SEREDER Saat. AERO GEERS GANE GERN) WulEen: arerEn GEe. 


ICH REDUZIERE AUF ® 


WIEVIEL NIMMST DU? 3 


DU REDUZIERST AUF 1 


ICH HABE GEWONNEN! — WEITER (J/N)? N 


READY. 
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Schiffe versenken 


wenn Sie einmal keinen Spielpartner haben, mit dem 
Sie auf dem Papier "Schiffe versenken" können, kann der 
Computer Ihren Partner vertreten. 


Die Regeln für dieses Spiels sind Ihnen sicherlich 
bekannt: In einem quadratischen Gitter aus NxN Kästchen 
sind "Schiffe" unterschiedlicher Größe zufällig ver- 
teilt worden. Durch Angabe der Koordinaten sollen die 
Schiffe "versenkt" werden. In dem entsprechenden kKäst- 
chen wird jeweils markiert, ob es sich um einen Treffer 
handelte, oder ob ins Wasser gezielt wurde. Bei einem 
Treffer erscheint eine Zahl von 1 bis 4, die angibt, 
wie lang das getroffene Schiff ist. 


Die Schiffe werden mit Hilfe der Zufallsfunktion 
RND in dem vorgegebenen Spielfeld verteilt. Ihre Lage 
kann sowohl horizontal als auch vertikal oder diagonal 
sein. Es ist nicht ausgeschlossen, daß sich Schiffe 
berühren oder sogar diagonal überschneiden. (Falls 
Ihnen das zu unrealistisch ist, haben Sie damit gleich 
eine Anregung zur Änderung des Programms!) 
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Raster aufbaven, 
und Schiffe 
'verstecken' 


Eingabe 
Treff - Versuch 


entsprechende 
Markierung 


entsprechende 
Markierung 


Schiffe 
übrig 
L 


nein 


Spieldauer 
ausgeben 


FLuß- Diagramm: Schiffe versenken 


18 REM. „.uuuouunnunnuuunnensenn nun .nnenennnnun.. SCHIFFE VERSENKEN 
20 PRINT"/M 3 SCHIFFE VERSENKEN z 
240 DIM F(20,20) 

250 F$=".4321": REM WASSER/SCHIFFLAENGE=4 

268 PRINT"HEM IN EINEM QUADRAT MIT DER KANTENLAENGE”" 
288 PRINT" N SIND FOLGENDE SCHIFFE VERSTECKT:" 

298 PRINT: PRINT” 2 MIT DER LAENGE 4” 

308 PRINT" 3 MIT DER LAENGE 3" 

31@ PRINT" 4 MIT DER LAENGE 2” 

328 PRINT" 5 MIT DER LAENGE 1" 

33@ PRINT: PRINT" DIE SCHIFFE KOENNEN SICH DIAGONAL” 
348 PRINT" UEBERSCHNEIDEN ODER SICH BERUEHREN. MEIel" 
350 INPUT" FELDGROESSE N (18 {= N <= 18)°;N 

36@ IF NX18 OR N>18 THEN PRINT"'TI": 60T0 350 

378 REM... = -saua0n unuuenenae nano sun nenne nn. ..„AUSSABE DES FELDES 
388 FOR I=1 TON 

398® READ A$ 

40880 B$=B$+A$ 

418 NEXT I 

420 PRINT" TImmBl";, B$ 

458 RESTORE 

448 FOR I=1 TON 

450 READ A$ 

466 PRINT" "5A$ 

470 NEXT I 

ABO REM. .ansunononunnensuuu nn sen nn un nn. .. VERSTECKEN” DER SCHIFFE 
490 FOR F=2 TO 5 

308 FOR I=1 TO F 

318 X=INTE(N-6) #RND(1))+6-F 

328 Y=INTÜLN-6) #RND(1))+6-F 

358 A=INT(S#RND(1))-1 

348 B=INT(3#RND(1))-1 

338 IF A=8 AND B=0 THEN 60T0 548 
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FOR K=1 TO &-F 
IF F(X,YI<>0 THEN G0TO 518 
XK)=X: YiK)=Y 
X=X+A: Y=Y+B 
NEXT K 
FOR K=1 TO &-F 
FIXIK),YED)I=-F 
NEXT K 
NEXT I 
NEXT F 
BEN NEE ELENA TREIERGER: EINGABE DER KOORDINATEN 
PRINT"S"5: FOR R=1 TO 22: PRINT"M"35: NEXT R 
INPUT" KOORDINATEN X,Y"3X$,Y$ 
IF ASC(X$) >ASC(A$) OR ASC(Y$) >ASC(A$) THEN GOTO 678 
X=ASC(X$)-64: V=ASC(Y$)-64 
IF F(X,Y)>0 THEN G0TD 678 
PRINT" IN"; 
Z=F(X,Y)+6 
IF Z<& THEN 808 
REM ers aanennnnnu „AUSGABE DES GETROFFENEN ZIELES 
PRINT" . 
PRINT") WASSER! BEI "5CHR$(X+64) 5", "5CHR$ (Y+64) 
FX,V)=1 
GOTO 848 
PRINT" u 
PRINT" TREFFER "3MID$(F$,6-7,1)5" BEI "5CHR$(X+64) 5", "3 
PRINT CHR$(Y+64) 
F(X,Y)=ABSIF(X,Y)) 
=® 
PRINT" SIE" ; 
FOR I=1 TON 
FOR K=1 TON 
X=F(1,K) 
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898 IF X<{=® THEN 60T0 930 

988 PRINT TAB(K+1)5MID$(F$,X,1)5 

918 IF X=1 THEN 60T0 939 

920 E=E+1 

938 NEXT K 

948 PRINT 

95@ NEXT I 

968 IF E<3® THEN GOTO 678 

970 DATA A,B,C,D,E,F,6,H,1,J,K,L,M,N,D,P,@,R 
986 PRINT"@"5: FOR R=1 TO 22: PRINT"M"5:NEXT R 
990 PRINT" ALLES VERSENKT! u 
1000 END 


READY. 


274 


ABCDEFGHIJKLMNOPOR 


0) N) 

.u " [) Ce 
ıN 00. a a 0 

a .: [N er Tr Ce ae | 
Pr u a a. TI v8. 12 a 
Pe [) ı a [N a 0 


a an ee 1 1 N DNS 2 2 1. 8 8 
ua a2 8 2 05 . 2 2 TH M “on 
u. TH u 8 af cn 
[er ur. Bar Br Be | vs: MM MMM ° ı. 
CHE TaueE Baer Bar se Be CHE Dauer ar ae se Ya I) 


TROAWLGO ZH Mm zZ JEZO0.0K 


; 
E 
u 
z 


READY. 
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Roulette 


Bevor Sie Ihr Geld ins Spielkasino tragen, können 
Sie mit diesem Programm die "todsicheren" Spiel-Systeme 
erst einmal "auf dem Trockenen" ausprobieren - oder 


auch einfach nur zum Spaß den Computer als Roulette 
benutzen. Einen Spielplan müssen Sie sich allerdings 
bei Bedarf selbst malen! 


Nach Drücken einer Taste wird mit der RND-Funktion 
zufällig eine der Zahlen von O bis 36 erzeugt. Zusätz- 
lich erfolgt vom Programm aus eine Zuordnung zu den 
Chancen: 


zweifach: Rot/Schwarz 
Pair/Impair 
Manque/Passe 


dreifach: 1./2./3. Dutzend 
1-72:73: "Reine 


Anregung: Das Programm könnte so ausgebaut werden, 
daß auch die Spieleinsätze vom Computer verwaltet wer- 
den, sodaß gar kein realer Roulette-Spielplan benötigt 
wird. 
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1@ REM. onuuunmununnu nn nun neun nun nn en ne ee „....ROULETTE 
2@ PRINT" 3 ROULETTE , 
3@ PRINT"MMMEM FAITES VOTRE JEUX!...” 

48 PRINT: PRINT TAB(18) "<TASTE DRUECKEN>" 

38 GET N$: IF N$="" THEN GOTO 50 

60 PRINT"7I": POKE 53281,3: POKE 53288,5: PRINT "2"5 

’e 5=17 

88 PRINT"M DIE KUGEL ROLLT"® 

98 FOR K=1 TOD RND(1)#110+1 

108 PRINT" SIMIKRIRDERIRIKEIN 2" 5 TAB (22) 5 INT{RND (1) #37); "m 8 "5; 
120 PRINT"=IUW"; TAB(SI 5". " 

148 5=5+1 

158 NEXT K 

168 PRINT 

178 X=INTt37#RND (1)) 

186 PRINT" DIRT DIE KUGEL FAELLT AUF RS XS"H m 3"; 
190 IF X=® THEN G60TD 486 

208 IF X=1 OR X=3 OR X=5 THEN G0OTO 420 

218 IF X=7 OR X=9 OR X=12 THEN 60T0 420 

2206 IF X=14 OR X=16 OR X=1B THEN G0TO 428 

230 IF X=19 OR X=21 OR X=23 THEN G60T0 420 

248 IF X=25 OR X=27 OR X=308 THEN GOTO 420 

250 IF X=32 OR X=54 OR X=36 THEN 60T0 420 

268 PRINT TAB(Z7)5"m SCHWARZ =": PRINT 

270 IF X=2#INT(X/2) THEN GOTD 440 

288 PRINT TAB(Z7)5"IMPAIR” 

298 IF X>18 THEN GOTD 468 

388 PRINT TAB (27) "MANGUE” 

318 Y=INT((X-1)/12) +1 

328 PRINT TAB(26)5Y;"M. DUTZEND" 

330 X=X-3#INT(X/3) 

348 IF X>8 THEN 360 

350 X=3 

368 PRINT TAB(26)5X; "N. REIHE” 

378 PRINT"MMEM BITTE AUSZAEHLEN UND SETZEN!" 

PRINT" <WEITER: TASTE, ENDE: E>" 


590 
395 
490 
410 
426 
430 
440 
450 
460 
479 
4806 
499 
300 
318 


GET A$: IF A$="" THEN GOTD 390 
IF A$="E"” THEN END 

PRINT"!I"5 

GOTO 58 

PRINT TAB(27)5"3 ROT =": PRINT 
GOTO 270 

FRINT TAB{27)5 "PAIR" 

GDOTO 296 

PRINT TAB(27)53 "PASSE” 

GOTDO 318 

PRINT TAB{Z27)5"ZERO!!!" 
PRINT"MM EINFACHE CHANCEN BLEIBEN," 
PRINT"N DER REST AN DIE BANK!!" 
GOTDO 398 


READY. 


DIE KUGEL ROLLT „„ouuennnnennnunnn en 


DIE KUGEL FAELLT AUF 31 SCHWARZ 
IMPAIR 
PASSE 


3. DUTZEND 
1. REIHE 


BITTE AUSZAEHLEN UND SETZEN! 


<{WEITER: TASTE, ENDE: E> 
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DIE KUGEL ROLLT „..... 2.0.0 


DIE KUGEL FAELLT AUF @® ZERO!!! 


EINFACHE CHANCEN BLEIBEN, 


DER REST AN DIE BANK!! 


<WEITER: TASTE, ENDE: E> 


DIE KUGEL ROLLT ..... 


DIE KUGEL FAELLT AUF 12 ROT 
PAIR 
MANQUE 


1. DUTZEND 
3. REIHE 


BITTE AUSZAEHLEN UND SETZEN! 


<WEITER: TASTE, ENDE: E> 
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wnorterraten 


Bei diesem Spiel geht es darum, mit möglichst 
wenigen Versuchen ein bestimmtes Wort zu erraten. 


Die einzige Information, die man zunächst besitzt, 
ist die Länge des gesuchten Wortes, die durch eine 
entsprechende Anzahl von Strichen dargestellt wird. 


Tippt man nun eine Buchstabentaste, so wird dieser 
Buchstabe sofort an allen Stellen im Wort angezeigt, an 


denen er vorkommt - sofern er überhaupt in dem Wort 
vorkommt! 
Hat man das Wort vollständig erraten, so wird die 


Anzahl der Versuche absolut und in Prozent angegeben. 
Hatte das gesuchte Wort z.B. 7 Buchstaben und wurden 
zum Erraten 14 Versuche benötigt, beträgt also die 
absolute Zahl der Versuche 14 und die prozentuale 
14/7*100 = 200%. Die relative Zahl der Versuche kann 
natürlich auch unter 100% liegen, nämlich dann, wenn 
durch einen Versuch ein Buchstabe getroffen wurde, der 
an mehreren Stellen im zu erratenden Wort vorkommt. 


Die zu erratenden Wörter stehen im Programm in 
DATA-Zeilen. Als Beispiel haben wir Namen von Personen 
aus Geschichten von Wilhelm Busch gewählt. 


Mar und Morıg 
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CE; =, RER EIEERSRORSEERELEN anerssenenennnn BEGRIFFE RATEN 
15 PRINT"IM & »2222 BEGRIFFE RATEN a... - 

20 PRINT:PRINT" WILLKOMMEN ZUM SPIEL "BEGRIFFE RATEN’ 

36 PRINT" IHRE AUFGABE IST ES, EINEN VOM COMPUTER"; 

35 PRINT" GEWAEHLTEN BEGRIFF MIT MOEGLICHST " 

48 PRINT" WENIGEN VERSUCHEN ZU ERRATEN. " 

45 PRINT"M DIE ZAHL DER VERSUCHE"; | 

50 PRINT" ERGIBT SICH AUS DER ANZAHL DER STRICHE." 


35 PRINT" MAR ### VIEL ERFOLG #*#" 
66 FDR P=® TO 6080: NEXT F ’ | 
73 REN -esaana senden nu... EINLESEN DER DATEN 


88 RESTORE: I=INT(18#RND(1)) 

85 FOR A=1 TO I: READ D$: NEXT A 

96 PRINT"": CZ=15: C5=0: GOSUB 59000 

186 FOR Y=1 TO LEN (D$) 

118 PRINT" -"5: NEXT Y 

128 V=®: PRINT: PRINT: D=$ 

125 C7=23: C$=0: GOSUB 50099 | 
138 PRINT"BITTE GEBEN SIE IHRE BUCHSTABEN EIN": Y=1 
135 GET C$: IF C$="" THEN 60T0 135 

146 V=V+1 

158 IF MID$(D$,Y,1)= C$ THEN 60TO 209 

166 IF Y<=LEN(D$) THEN 60T0 180 

176 Y=1: G0T0 135 

188 Y=Y+1: GOTO 150 

268 CZ=13: C5=2#Y-1: GOSUB 50680: PRINT C$: D=D+1 
236 IF D=LEN(D$) THEN 60T0 280 

248 IF Y<LEN(D$) THEN Y=Y+1: GOTO 150 

258 G0TO 176 

286 FÜR P=1 TO 1008: NEXT P 
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3008 
31@ 
315 
328 
325 
326 
330 
3408 
338 
400 
405 
410 
415 
420 
425 


PRINT" 2 ###%# HERZLICHEN GLUECKWUNSCH! ###*%* "= PRINT 
PRINT" SIE HABEN DEN ’UNBEKANNTEN’ BEGRIFF" 
PRINT"IRBBRBRRBIN",D$: PRINT 

PRINT" MIT"5V5 "VERSUCHEN ERRATEN!"= PRINT"S DAS SIND"; 
PRINT INT (V/LEN(D$) #100800+.5) /1005"% DER LAENGE DES" 
PRINT" BEGRIFFES.” 

PRINT" MEIN": INPUT" NEUES SPIEL GEFAELLIG (J/N)"5A$ 

IF A$= "N" THEN END 

GOTD 88 

DATA MAX UND MORITZ,WITWE BOLTE,SCHNEIDER BOECK 


DATA LEHRER LAEMPEL,ONKEL FRITZ,MEISTER BAECKER, BAUER MECKE 


DATA MEISTER MUELLER,DAS BRAVE LENCHEN,PLISCH UND PLUM 
DATA DER HEILIGE ANTDNIUS,FIPPS DER AFFE,MALER KLECKSEL 
DATA KNOPP,FRAU KUEMMEL,MEISTER BOECK,HANS HUCKEBEIN 
DATA ONKEL NOLTE 


30000 CZ=1024+40%CZ7 
30816 POKE209, CZAND255 
38220 POKE210,CZ7/256 
308538 POKE211,C5 
38048 RETURN 


READY. 
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FLISCH UND PLUM 


Te FF 


BITTE GEBEN SIE IHRE BUCHSTABEN EIN 


#*%#%%# HERZLICHEN GLUECKWUNSCH! ##%% 

SIE HABEN DEN ’UNBEKANNTEN” BEGRIFF 
PLISCH UND PLUM 

MIT 12 VERSUCHEN ERRATEN! 


DAS SIND 88 % DER LAENGE DES 
BEGRIFFES. 


NEUES SPIEL GEFAELLIG (J/N? N 


READY. 
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Laufschrift 


Eine Folge von beliebigen Zeichen (maximal eine 


Stringlänge, also 255 Zeichen lang) wird als Lauf- 
schrift ausgegeben. Dazu wird mit der MID$-Funktion 
jeweils ein Teilstring von 40 Zeichen (entsprechend 


einer Bildschirmzeile) ermittelt und angezeigt. Dieser 
Ausschnitt aus der gesamten Zeichenkette wird bei jedem 
Durchlauf um ein Zeichen verschoben, sodaß eine Lauf- 
schrift entsteht, die bis zum Programmabbruch fort- 
während wiederholt wird. 
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18 
15 
28 
56 
40 
38 
68 
78 
88 
98 


REM. ... as sa an un = = ana an a 5 Ba ss u = 2 5 ua u 8 us... -.— aan. .© «a. .LAÄUFSCHRIFT 


PRINT"M 4 ERZEUGUNG EINER LAUFSCHRIFT = 
PRINT"MemM DIE LAUFSCHRIFT SOLL LAUTEN: ": INPUT A$ 
A$=" "+A$ 
PRINT"!T": POKE 53288,8: POKE 53281,® 

L=LEN (A$) 

FOR X=1 TO L 

S=L-X 

PRINT" STRIRDSIKIRTRTATRTRTETRT" ; 


PRINT"3"MID$ (A$,X,40);5 


108 IF S<48 THEN PRINT MID$(A$,1,39-5) 
118 FOR T=1 TO 150: NEXT T 

120 NEXT X 

130 GOTO 40 


READY. 
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Tipp - Test 


Was halten Sie davon, Ihre Schreibmaschinenkennt- 
nisse mit Hilfe des Computers zu verbessern? Dieses 
Programm soll eine kleine Anregung für eine solche 
Anwendung darstellen. 


Eine vorher festgelegte Anzahl von Buchstaben und 
sonstigen Zeichen wird der Reihe nach in zufälliger 
Folge angezeigt. Das jeweils sichtbare Zeichen muß 
möglichst schnell auf der Tastatur eingetippt werden. 
Hat man sich vertippt, so wartet das Programm solange, 
bis das richtige Zeichen eingegeben wird. 


Am Ende wird die benötigte Tipp-Zeit angegeben, 


die zudem noch umgerechnet wird in die Zahl der An- 
schläge pro Minute. 


286 


3 REM... .u0.. >» .nonsune Souseneonnune mens uunnnunnenunune TIPPTEST 


PRINT"M 4 TIPP-TEST 2 
PRINT" AIMEMEN WIEVIELE BUCHSTABEN SOLLEN ANGEZEIGT" 
PRINT" WERDEN”";: INPUT N: IF N=8 THEN END 
PRINT"ME O.K.!...." 

PRINT"TIERBRBBBBBI..... BITTE KONZENTRIEREN..... n 
FOR I=1 TOD 20080:NEXT I 

PRINT"T' 

FOR FP=1 TON 


REM een BUCHSTABEN MIT ZUFALLSZAHLEN 


REM. sansns ns nr na en anne BUCHSTABENAUSGABE 
PRINT" TPEIDEDIIDTIIBBBBBBRBEN" 5 CHRS (A) SCHRS (154) 
GET B$: TI$="0060800": IFB$="" THEN PC=PC+TI: GOTO 99 


188 IF B$=CHR$(A) THEN TI$="000080": NEXT P: GOTD 130 


118 


TI$="008080": EC=EC+1: 60TD 76 


120 REN: as lan nie  ALSCHABE BEWERTUNG 


150 
148 


PRINT"77”: T=PC/68 
PRINT" MM"; N; "BUCHSTABEN IN”5T; "SEKUNDEN: " 


158 PRINT:PRINT" DAS SIND"; INT (N/T*68+.5) 35 "BUCHSTABEN/MINUTE!" 
168 PRINT"ME FEHLER"5EC5 " (="5EC/N#1005 "%4)" 


170 


END 


READY. 
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Lernkarten 


Dieses Programm kann das 'Pauken' von Vokabeln 
usw. erleichtern und unterhaltsamer gestalten. Die 
Daten stehen paarweise in DATA-Zeilen (z.B. englisches 
Wort, deutsche Übersetzung). Als Endemarkierung werden 
zwei Sonderzeichen verwendet (*,*), sodaß es nicht 
notwendig ist, die Anzahl der Daten anzugeben: zu 
Beginn des Programms zählt der Computer selbsı die 
Daten. Anschließend werden sie gemischt und in einer 
zufälligen Reihenfolge paarweise vorgelegt: das erste 
wort eines Paares wird angezeigt und nach einer kurzen 
Pause der entsprechende zugeordnete Begriff. Nach einer 
weiteren Pause wird das nächste Datenpaar angezeigt, 


usw. bis sämtliche Daten einmal abgefragt worden sind. 
Anschließend kann man das Programm beenden oder aber 
die Liste noch einmal vorlegen lassen, nachdem die 


Daten wieder neu gemischt worden sind. 


In der vorliegenden Programmform werden die Daten 
ohne Zutun des Benutzers der Reihe nach angezeigt. Die 
Geschwindigkeit läßt sich durch Ändern der entsprechen- 
den Warteschleifen natürlich beliebig einstellen. Eben- 
so leicht kann man die Abfragen auch über die Tastatur 
steuern, indem man die Warteschleifen durch eine GET- 
Anweisung ersetzt, die bewirkt, daß erst nach einem 
Tastendruck das nächste Wort angezeigt wird: 


GETX8: IE’X$ = 9", THEN GOTO 
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REM. zu. an eh anne suens EERN KARTEN 


28 PRINT" 3 LERN-KARTEN u 

30 REMennnneeeennnennnnnnnennnnnnn nn. FRAGEN UND ANTWORTEN ZAEHLEN 
40 READ F$,A$ 

50 IF F$<>"#" THEN N=N+1: 60TO 48 

[X = =, EHRE RER ENREEAEN „u... „ABFRAGE VORBEREITEN 
78 RESTORE 

88 FOR I=1 TON 

98 Atl)=I 

108 NEXT I 

11® REMennneenennnnn SCORE Sensennenannnen nn». MISCHEN 
128 FOR J=1 TON 

138 X=INTÜLN-J+1) #RND(1)+1) 

140 READ FAX) ,ASCAX)) 

150 AIX)=ALN-J+1) 

160 NEXT J 

178 REM..... ER AEREEENEER EN UR EAU TETETER “anna nn ABFRAGE 
188 FOR J=1 TO N 

198 PRINT: PRINT TAB(S)5F$(J); 

200 FOR PAUSE =1 TO 1008 

216 NEXT PAUSE 

220 PRINT TAB(1S)5"3 "zAsıD)z" m 

238 FOR PAUSE=1 TO 1080 

248 NEXT PAUSE 

250 NEXT J 


266 PRINT"MEN ##* ALLE”5N5" WOERTER SIND EINMAL" 
270 PRINT" VORGELEGT WORDEN!" 
288 PRINT: PRINT" NOCH EINMAL? (J/N "5 


GET E$ 


308 IF E$="" DR (E$<{>"J" AND E$S<>"N”) THEN GOTO 290 


IF E$<{>"N" THEN PRINT"IIN”: GOTD 70 


320 END 

1008 REMennnaaenenunnnnnneennnnenenennenreenun una en DATEN-PAARE 
1018 DATA ONE,EINS, TWO, ZWEI, THREE, DREI, FOUR, VIER, FIVE,FUENF 

1999 DATA *%,*: REM...... annunnunnnnnuenrenn DATENENDE-MARKIERUNG 


READY. 


289 


Musik - Eingabe - Programm 


Dieses - etwas 'länglich' geratene - Programm, 
hilft Ihnen bei der Eingabe von Musikstücken. 


Ludwig van Beethoven (1770-1827) 


Fr ESS 


Am Beispiel des ersten Taktes dieses Musikstückes 
wollen wir demonstrieren, wie die Eingabe der Noten 
erfolgt. 


Zunächst wird die Notenbezeichnung zusammen mit 
der gewünschten Oktavlage angegeben. (Der Sound-Chip 
hat einen Umfang von 8 Oktaven). Darauf folgt, durch 
ein Komma getrennt, der Notenwert in reziproker Form, 
d.h. 4 für 1/4 usw. 


Für die erste Note ergibt sich also: E5,16, für 
die zweite: D#5,16 usw. Das Vorzeichen zur Erhöhung um 
einen halben Ton wird also, wie in der Musik üblich, 
durch ein Kreuz bezeichnet. (Vorzeichen zur Erniedri- 
gung um einen halben Ton sind in diesem Programm nicht 
vorgesehen: solche Töne sind durch eine Erhöhung des 
nächst tieferen Tones darzustellen.) 
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Außer der Noteneingabe haben wir noch einige wei- 
tere Möglichkeiten vorgesehen. Zunächst kann die ein- 
gegebene Melodie abgespielt werden. Ist man mit dem 
Resultat zufrieden, können die Notendaten abgespeichert 
werden. Zusätzlich könen die eingegebenen Noten auf dem 
Bildschirm oder auf dem Drucker ausgegeben werden. Eine 
Ausgabe der Noten für unser Beispiel ist am Ende des 
Programmes abgebildet. 


Zur Anderung der eingegebenen Noten gibt es zwei 
Möglichkeiten: 


Erstens können direkt nach der Eingabe Korrekturen 
vorgenommen werden. 


Zweitens besteht die Möglichkeit, bereits abge- 
speicherte Notendaten zu korrigieren, wenn sie nach dem 
Einlesen einmal abgespielt worden sind. (Zum nächsten 


Abspeichern muß das alte Datenfile gelöscht werden.) 


Dazu noch einige Anmerkungen: Die Anzahl der ein- 
gegebenen Noten ist durch die entsprechende Feld- 
Dimensionierung begrenzt. Außerdem kann das Programm 
nur einstimmige Musikstücke verarbeiten. Die Anleitung 
zur Erzeugung mehrstimmiger Musik findet man in Kapitel 
74 


Der Aufbau des Programms läßt sich im übrigen mit 
Hilfe des nachstehenden Flußdiagramms leicht über- 
blicken. Weitere Erklärungen stehen im Programmlisting 
in Kommentarzeilen, sodaß Änderungen nicht zu schwierig 
sein dürften. 


Die Unterprogramme stehen am Anfang des Programms, 
um die Ablaufgeschwindigkeit zu erhöhen. Dies ist immer 
dann sinnvoll, wenn Unterprogramme häufig aufgerufen 
werden, da der BASIC-Interpreter beim Aufruf von Unter- 
programmen die Suche danach bei der niedrigsten Spei- 
cheradresse beginnt. 
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weitere 
Möglichkeiten 
nutz en 


Unterprogramme: UPA Umrechnen der eingegebenen 
Noten in Daten 
uP 2 Spielen eines einzelnen Tones 
UP 3 Umrechnen der Daten In Noten 
UP 4 Spielen einer Melodie im 
Zusammenhang 


Fluß = Diagramm ‘ Hilfs- Programm zur 


MusiKprogrammierung 


10 REM. nnnnaanunnnnnnannnnmenn neun un ne nenn nn MÜSIK-HILFSPROGRAMM 
20 DIM GFZ(11) ,ND% (508) ‚HF% (2008) ‚NF% (2008) „WF%. (2000) 

39 $1=54272 

48 FOR I=SI TO SI+24: POKE 1,0: NEXT I 

58 POKE SI+5,36 :POKE 51+6,20 

60 FOR I=® TO 11: READ Fi: GFX(II=F%: NEXT I 

65 REM annaennnunn ROBRTERER: ER NEE . BASIS-FREQUENZEN 
80 DATA 268,284, 301,318, 337,358, 379, 491,425, 451, 477,506 

98 GOTO 1090 

100 REN. ee 222... UMRECHNUNG DER EINGABE 
185 IF MID$(A$,2,1)="#" THEN 60T0 150 

118 IF LEFT$(A$,1)="P" THEN GOTO 175 

115 IF LEFT$(A$,1)="C" THEN NT=®: 60T0 175 

128 IF LEFT$(A$,1)="D" THEN NT=2: 60TO 175 

125 IF LEFT$(A$,1)="E" THEN NT=4: G0T0 175 

138 IF LEFT$(A$,1)="F" THEN NT=5: G0TO 175 

135 IF LEFT$(A$,1)="G" THEN NT=7: GOTO 175 

146 IF LEFT$(A$,1)="A" THEN NT=9: GOTO 175 

145 IF LEFT$(A$,1)="H" THEN NT=11: GOTO 175 

158 IF LEFT$(A$,2)="C#" THEN NT=1: G0TO 175 

155 IF LEFT$(A$,2)="D#" THEN NT=3: GOTO 175 

16@ IF LEFT$(A$,2)="F#" THEN NT=6: 60TO 175 

165 IF LEFT$(A$,2)="G#" THEN NT=8: GOTO 175 

178 IF LEFT$(A$,2)="A#" THEN NT=10: GOTO 175 

171 PRINT" FALSCHE EINGABE'!"=: I=I-1: FE=1: RETURN 

175: REM user . „BERECHNUNG DES DATENWERTES 
188 0%=VAL(RIGHT$(A$,1)) 

185 B=VAL(LEFT$(B$,?)) 

196 NZ%=16/B 

195 IF RIGHT$(B$,1)="." THEN NZ%X=1.5%#NZ% 

2068 IF LEFT$(A$,1)="P" THEN 0%=®: NT=® 

205 NDX (I) =(NZ%#8+0%) *16+NT 

286 IF LEFT$(A$,1)="P" THEN NDZ(I)=-ND% (I) 

218 RETURN 
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WA=@: WE=®: 
0%4={NDX (I) -1288NZ%) /16 
NT=ND% (1) -128*N7%-16*0% 
WA=33: WE=32 
NFA=GF-HF%#256 


G0TO 290 


POKE SI+1,HF%: POKE SI,NFZ 
POKE SI+4,WA 


FOR T=1 TO NWA/2Z: 


NEXT T 


POKE SI+4,WE 


RETURN 


REM. a nsunas . =» UMRECHNEN DATEN -> TEXT 


PU=® 


IF NDA{IDI<® THEN N$="PAUSE": 
NZ/=NDA (1) /128: 
NT=NDZ (I) -128#NZ%-16*0%: 
IF NW>INT{NW THEN NWA=2#INT (NW) :PU=1: 


NWA=NW 


NZA=-NDX {1)/128: 
0%={NDA (I) -128*NZ%) /16 
NW=16/NZA 


GOTOS6S 


G0TO 568 


IFN$="PAUSE"THEN RETURN 


ON NT+1 6DTO 375,380, 385,390, 395, 400, 405,410, 415,420, 425,430 


N$="C 
N$="C# 
N$="D 
N$="D# 
N$="E 
N$="F 
N$="F# 
N$="G 
N$="6# 
N$="A 
N$="At 
N$="H 


RETURN 
RETURN 
RETURN 


: RETURN 


RETURN 
RETURN 
RETURN 
RETURN 
RETURN 
RETURN 


: RETURN 


RETURN 
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Lununesnnnunnnn „...... SPIELEN DER EINZELNEN NOTEN 
IF NDA{DI<S® THEN NWZ=-NDA {D: 
NZA=ND%A (1) /128: 
NW4=128*NZ7%: 
GF=GFAINTI#210%: 
HFA=GF/256: 


REM. -zunuens unsuuuuurunenne „.„... SPIELEN EINER GANZEN MELODIE 


SO REM een BERECHNUNGEN 
565 J=@: FOR I=6 TON 

518 WA=33: WE=32 

515 ND=ND%X(I): IF ND<® THEN ND=-ND: WA=9: WE=O 

528 NWZ=ND/128: 0%=(ND-128*NW%) /16: NT=ND-128#NW4-16*0% 

525 GF=GFX NT): GF=GF*210%: HF%=6F/256: NF%X=6GF-2568HF2 

538 IFNWZ=1THENHFZ(D=HF%: NFACDSNFZ: WFXCD=WA: J=J+1: 60OTO 555 
525 FOR K=1 TO NWX-1 

548 HFÄLJI=HF%: NFACD=NFZ: WEIT) =WA: J=J+ 

545 NEXT K 

559 HFLCHD=HFA: NFACD=NFZ: WEIT) =WE 

555 J=J+1 

560 NEXT Iz JMAX=J 

565 PRINT" ENDE DER BERECHNUNGEN! AUF TASTENDRUCK" 

578 PRINT" KOENNEN SIE DIE MELODIE JETZT HOEREN." 

575 GET HM$: IF HM$="" THEN GOTO 575 

SBO REM nnnenennnunnunn ee ee ers SPIELEN 
585 POKE 51+24,15 

598 FOR J=® TO JMAX 

595 POKE SI,NFX(J): POKE SI+1,HF%X(J): POKE SI+4,WFX(J) 

608 FOR T=1 TO 40: NEXT T 

605 NEXT J 

&18 FOR T=1 TO 50: NEXT T 

615 POKE SI+24,0 

628 RETURN 

1000 REM. ann ne nnnennnannnnunen ee Bene 22.022 « HAUPTPROGRAMM 
1818 PRINT"IM a MUSIK-HILFSPROGRAMM u 


1828 PRINT"Mrel MIT DIESEM PROGRAMM KOENNEN SIE NOTEN” 
1825 PRINT" IN DATA-WERTE UMRECHNEN 3 U =" 

1838 PRINT"M ODER" 

1835 PRINT"®M BEREITS ABGESPEICHERTE MELODIEN VON" 


295 


1840 PRINT" DER DISKETTE EINLESEN UND SPIELEN 35 m" 
1945 PRINT"M LASSEN." 

1850 PRINT"NeM BITTE DRUECKEN SIE DIE TASTE (W/5)," 
1855 PRINT" DIE IHRER WAHL ENTSPRICHT." 

1868 GET 1$: IF Z$="" THEN GOTO 1048 

1065 IF 1$<C>"U" AND Z$<>"S" THEN 60TO 1060 

1878 IF 2$="U" THEN GOTO 1309 

110® REM.ennnnnaeennnnn “.... SPIELEN EINER ABGESPEICHERTEN MELODIE 
1185 PRINT"TIEIIM UM EINE BEREITS ABGESPEICHERTE MELODIE" 
1118 PRINT"M SPIELEN ZU KOENNEN, LEGEN SIE BITTE" 
1115 PRINT"M DIE RICHTIGE DISKETTE EIN UND GEBEN" 
1128 PRINT" ANSCHLIESSEND DEN NAMEN DER MELODIE AN." 
1125 PRINT: PRINT: INPUT" NAME"3XY$ 

1138 OPEN 13,8,2,XY$+",5,R" 

1135 INPUT#13,N 

1148 FOR I=8 TO N 

1145 INPUT#13,ND% (I) 

1150 NEXT I 

1155 CLOSE 13 

1168 PRINT" GEDULD, ERST MUSS GERECHNET WERDEN." 

1165 G0SUB 508 

1176 PRINT"XM WIEDERHOLUNG (J/N) ?" 

1175 GET 1%: IF Z$="" THEN GOTO 1175 

1180 IF Z$<>"J" AND Z$<>"N" THEN GOTD 1175 

1185 IF Z$="J" THEN GOSUB 589 

1190 GOTO 1998 

1306 REM. .nnanennnneenennnnennnnnnnennn nn ne « NOTENEINGABE-PROGRAMM 
1385 PRINT": GEBEN SIE DIE NOTEN BITTE IN FOLGENDER" 
1316 PRINT" SCHREIBWEISE EIN: " 

1315 PRINT"M NOTE EV.&# OKT., REZIPROKER NOTENWERT" 
1326 PRINT"M ALSO Z.B. 3 65,4 ®" 

1325 PRINT" (6 IN DER 5. OKTAVE ALS VIERTELNOTE)" 
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1356 PRINT" ODER 3 F#3,2. =" 

1335 PRINT" (FIS IN DER 3. OKTAVE ALS PUNKTIERTE" 
1348 PRINT" HALBE NOTE). 

1345 PRINT"N PAUSEN KOENNEN EINGEGEBEN WERDEN DURCH" 
1358 PRINT" P,PAUSENLAENGE, ALSO ETWA A P,8 m ALS" 
1355 PRINT" 1/8-PAUSE." 

1368 PRINT"E WOLLEN SIE DIE EINGABE BEENDEN, GEBEN" 
1365 PRINT" SIE ANSTELLE EINER NOTE 3 8,8 EB EIN." 
1370 PRINT" DANACH STEHEN IHNEN DANN VERSCHIEDENE" 
1375 PRINT" MOEGLICHKEITEN DER WEITERARBEIT ZUR" 
1388 PRINT" VERFUEGUNG. " 

1385 PRINT"S WEITER MIT TASTENDRUCK." 

1398 GET Z$: IF Z$="" THEN 60T0 1398 


1408 REM. ..... Bonenerenunnune Kuuannsnnnenneennnnn nn. NOTENEINGABE 
14805 PRINT"! BEGINNEN SIE NUN MIT DER EINGABE.“ 
1410 1I=0 


1415 PRINT"M NOTE NR.”"5I 

1420 INPUT"NOTENWERT": A$,B$: IF A$="8" THEN N=I-1: GOTO 1450 
1421 WB=VAL (B$) 

1422 IF NOT {WB< > LANDWB< >ZANDWB< >4ANDWB< >BANDWB<>1&) THEN GDOT01425 
1425 PRINT"FALSCHE EINGABE!": GOTO 1415 

1425 GOSUB 108 

1426 IF FE=1 THEN FE=2: GOTO 1445 

1450 POKE 51+24,15 

1435 GOSUB 258 

1440 POKE SI+24,6 

1445 IF 1X588@ THEN I=I+1: 60TO 1415 

1450 PRINT" Im NACHDEM SIE NUN IHRE MELODIE EINGEGEBEN" 

1455 PRINT") HABEN, STEHEN IHNEN FOLGENDE MOEGLICH-" 

1468 PRINT" KEITEN ZUR VERFUEBUNG: " 

1465 PRINT" AENDERN EINZELNER NOTEN aA m" 

1470 PRINT" AUSGABE DER DATEN-WERTE ade 


1475 
1480 
1485 
1490 
1495 
1508 
1595 
1518 
1515 
1528 
1525 
15350 
1535 
1540 
1545 
1558 
15595 
1568 
1569 
i978 
1575 
1586 
1585 
15978 
1688 
1695 
1616 
1615 
1628 
1625 
16350 
16355 


PRINT" ABSPEICHERN AUF DISKETTE 35 ®" 

PRINT" HOEREN DER GANZEN MELODIE 3 M =" 

PRINT"EIN BITTE DRUECKEN SIE DIE ENTSPRECHENDE" 
PRINT" TASTE." 

GET Z$: IF Z$="" THEN GDTO 1495 

IF Z$< >" A"TANDZS< >"D"ANDZS<>"S"ANDZSC>"M" THEN GOTO 1495 
IF Z$="D" THEN GOTO 1668 

IF Z$="S" THEN GOTO 1708 

IF Z$="M" THEN GOTO 1898 

REM anunenne asseiete EEESRIRE NE AENDERN EINZELNER NOTEN 
PRINT"IINM ZUM AENDERN EINZELNER NOTEN GEBEN SIE" 
PRINT" DIE NUMMER DER NOTE AN, DIE GEAENDERT" 
PRINT" WERDEN SOLL, UND DANACH IN DER GEWOHN-" 
PRINT" TEN SCHREIBWEISE DIE NOTE." 

INPUT" EIN NOTENNR. "3 

INPUT" NOTE"3A$, B$ 

GOSUB 106 

POKE 51+24,15 

GOSUB 250 

POKE 51+24,0 

PRINT" SOLL NOCH ETWAS GEAENDERT WERDEN (J/N)?" 
GET Z7$: IF Z$="" THEN GOTO 1586 

IF 7$="J"THEN GOTO 1545 

IF 7$<>"J" THEN GOTO 1906 

REM.anenannn ae EL EIERN AUSGABE DER DATEN-WERTE 
PRINT"-IN SOLLEN DIE DATEN AUF DEM DRUCKER 3 D m" 
PRINT"! ODER AUF DEM BILDSCHIRM 3 B = AUSGEGEBEN" 
PRINT"M WERDEN?" 

PRINT" BITTE DRUECKEN SIE DIE ENTSPRECHENDE" 
PRINT" TASTE." 

GET 2$: IF Z$="" THEN GOTO 1630 

IF 12$<>"D" AND Z$<>"B" THEN GOTO 1630 
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PRINT"TIE”: IF Z$="D" THEN OPEN 1,4: CMD1 
PRINT"NR. "5 TAB (4) 5 "NOTE": TAB(10) 5 "OKT. "5 TAB(16) 5 "WERT"; 
PRINT TAB{Z3I 5; "DATE" 

FOR I=6 TO N: GOSUB 350 

PRINTIS TAB(S?5N$S5 TAB(10)5 

IF N$="PAUSE" THEN GOTO 1675 

PRINT 0%; 

PRINT TAB(16)5"1/"5STR$(NWA) 5 

IF PUX>8 THEN PRINT"."5 

PRINT TAB(22);5NDA(CD) 

IF Z$="D" THEN GOTO 169% 

IF I=8 OR (INT(1/20)-1/20)<X>0 THEN GOTO 1696 
PRINT" WEITERE DATEN (J/ND?" 

GET A$: IF A$="" THEN GOTO 1684 

IF A$="N" THEN GOTO 1900 

NEXT I: IF Z$="D" THEN PRINT#1:CLOSE 1 
PRINT" DRUECKEN SIE EINE TASTE, WENN DAS" 
PRINT" PROGRAMM WEITERGEHEN KANN. " 

GET A$: IF A$="" THEN GOTD 1697 


GOTD 1969 
REM. „„uneuonsenune .nununnunnnnnnn. ABSPEICHERN DER DATENWERTE 
PRINT" IN BEVOR DIE DATEN ABGESPEICHERT WERDEN” 


PRINT"® KOENNEN, MUESSEN SIE EINE DISKETTE" 
PRINT"® EINLEGEN UND DEN NAMEN IHRER MELODIE" 
PRINT" ANGEBEN. " 

INPUT" II NAME" 5 XY$ 

OPEN 13,8,2,XY$+",5,W" 

PRINT#13,N 

FOR I=0 TO N 

PRINT#13,ND% (I) 

NEXT I 

CLOSE 13 

GOTO 1900 
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1808 REM. „au suoonennunesnnnunununnnn un. SPIELEN DER GANZEN MELODIE 
1805 PRINT"/M HABEN SIE GERADE AN DEN NOTEN ETWAS" 

1818 PRINT"M GEAENDERT BZW. MOECHTEN SIE IHRE" 

1811 PRINT"M MELDDIE ZUM ERSTEN MAL HOEREN? (J/N)" 

1815 GET NG$: IF NG$="" THEN 60T0 1815 

18280 IF NG$S>"J" AND NG${>"N” THEN 60T0 1815 

1825 IF NG$="N" THEN GOSUB 589: GOTO 1708 

18358 PRINT"MM DANN MUESSEN SIE EINEN AUGENBLICK" 

18535 PRINT" GEDULD HABEN, ICH MUSS ERST RECHNEN. MI" 

1848 GDSUB 589 

1900 REM. „ausuuunununusnuunenenuunun nun nen nun en «ABFRÄGE OB WEITER 
1905 PRINT" IM WOLLEN SIE NOCH ANDERE MOEGLICH-" 

1918 PRINT"M KEITEN AUSNUTZEN (J/N)?" 

1915 GET C$: IF C$="" THEN G60TD 1915 

1928 IF C$<S>"J"ANDES<>"N" THEN GOTO 1915 

1925 IF C$="J" THEN PRINT" TI": GOTO 1465 

1930 IF C$="N" THEN END 


READY. 
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NR. NOTE OKT. 


© 


A Sen 


YONDG m» 


E 


en 
Eo3 


mzrnn rmpr nn oO IM 


y,ı DD zZ 


3 


Ja Aa a Jg Aa $ a Ta can on 


Add N Aa bh A 


WERT 


1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
W 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 


16 
16 
1& 
1& 
1& 
16 
16 
16 
16 
i6 
iö 
1& 
16 
16 
15 
16 
16 
16 
16 
1& 
16 
16 
i6 


DATE 
212 
211 
212 
zil 
212 
203 
210 
288 
201 
180 
185 
192 
196 
201 
203 
180 
184 
196 
200 
203 
288 
180 
185 
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nenn ma man m Em Zn 


u) 
E 


py zn D 


aaa on » 


id kA Aa a a m 


[nn » 


na 4 


1/ 
1/ 
1/ 


1/ 


1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 
1/ 


1/ 
1/ 
1/ 


16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 
16 


16 
16 
16 


1/4 


196 
212 
211 
212 
211 
212 
203 
210 
208 
201 
188 
185 
192 
196 
201 
203 
180 
184 


194 
208 
203 
585 


Arharog 


305 


elegung des Com- 


Die Tabelle gibt einen Überblick über die ver- 
schiedenenen Speicherbereiche des Commodore 64, 


In den Kapiteln 5 und 9 wurde einiges über die 
Aufteilung der ROM- und RAM-Speicher gesagt. Insbeson- 
dere die Doppelbelegung von Speicheradressen läßt ja 
einige interessante Anwendungen zu. Im folgenden wird 
die Speicherbelegung noch einmal zusammenfassend be- 
schrieben. 


O0 - 827 Diese Speicher sind für wichtige 
Aufgaben des Betriebssystems zuständig (Anwendung SS. 
Kapitel 8). 


828 - 1019 Hier befindet sich der Kassetten- 
puffer. Alle Daten, die von der Kassette übernommen 
werden, werden hier zwischengespeichert, bevor sie z.B. 
in Programmen weiterverarbeitet werden. Benutzt man 
ein Diskettenlaufwerk, können in diese Speicherplätze 
Daten oder kurze Maschinensprache-Programme abgelegt 
werden. 


1024 - 2023 Diese Speicherplätze belegt der 
Bildschirmspeicher (s. Kapitel 5 und 8). 

2040 - 2047 Bei der Benutzung von Sprites sind 
diese Speicherplätze notwendig. Sie zeigen jeweils auf 


den Datenblock für ein Sprite. 


2048 - 40959 In diesem Bereich stehen die BASIC- 
Programme (s. auch Kapitel 5 und 9). 


40960 - 49151 Dieser ROM-Bereich von 8 K enthält 
den BASIC-Interpreter. 


49152 - 53247 Hier befindet sich ein weiterer 
RAM-Bereich, der von BASIC jedoch nicht benutzt wird. 
In diesen Speicherplätzen werden umfangreichere Maschi- 
nenprogramme abgelegt. Auch bis zu 4 K Daten können 
hier untergebracht werden. 


53248 -— 55296 Diese Speicherplätze kontrollieren 


u.a. den Video- und den Sound-Chip. (Näheres dazu in 
den Kapiteln 5 bis 9). 
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55296 - 56295 Dies ist der Farbspeicher-Bereich. 
Im Gegensatz zum Bildschirmspeicher läßt er sich nicht 
verschieben (s. Kapitel 5). 


56296 - 65535 In diesem Bereich befinden sich 
Systemroutinen des Computers. Diese steuern z.B. die 
Ein- und Ausgabe, die Systemuhr, den Tastaturpuffer. 
Diese Systemroutinen lassen sich sich auch in eigenen 
Maschinenprogrammen verwenden. 


Die Aufteilung und Funktion einzelner Speicher- 
bereiche ist in den folgenden Tabellen dargestellt. 
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SPEICHERBELEGUNG. DES COMMODORE 94 


FARF 6.552395 


|BETRIEBS- 
SYSTEM 


 £800 56296 


FARB- RAM 


0800 55296 


SOUND-CONTROLLER 
VIDEO-CO NTROLLER 


RAM 


FUR MASCHINEN - 
PROGRAMME 


DO000 53248 


8000 «9152 


ROM 


A000 «0960 


RAM 


BASIC-BENUTZER 


SPEICHER 


2048 
2040 


0800 
07F8 


ZEIGER FÜR SPRITES 


B/ILDSCHIRMSPEICHER 


KASSETTENPUFFER 


SYSTEMADRESSEN 


033C 828 


0000 


Der Bildschirmspeicher 


Die Tabelle zeigt die Verteilung der Speicher- 
adressen von 1024 bis 2023, also der Speichergruppe, 
die für die Darstellung von Zeichen an den entsprechen- 
den Bildschirmplätzen sorgt. Um eine bestimmte Bild- 
schirmstelle zu finden, muß man zu den angegebenen 
Werten 1000 addieren und bis zur gewünschten Stelle 
weiterzählen. | 


Beispiel: 10 FOR I = 1 TO 40 
20 POKE 1024+1,81 
30 NEXT I 


Durch diese Anweisungen wird in der obersten Bild- 
schirmzeile eine Reihe von Kreisen erzeugt, die aller- 
dings bisher noch unsichtbar sind, da sie zunächst in 
der Hintergrundfarbe dargestellt werden. Um sie sicht- 
bar zu machen, muß noch eine andere Farbe (als die 
Hintergrundfarbe) in die entsprechenden Farbspeicher 
gebracht werden (s. Farbspeicher-Tabelle). 
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BILDSCHIRMSPEICHER 


an 
mn 


mn mn 
oa 

> 22) 
m 
De] 
un 


Der FED SR EN ER 


Der Farbspeicher befindet sich in den Adressen von 
55296 bis 56295 (= 1000 Speicherplätze, d.h. ein Spei- 
cherplatz für jede der 40 x 25 Bildschirmpositionen). 
Aus diesen Speicherplätzen entnimmt der Computer die 
Information, welche Farbe ein (beliebiges) Zeichen an 
einer bestimmten Stelle des Bildschirms haben soll. 


Ein Zeichen kann auf dem Bildschirm nur dann er- 
scheinen, wenn außer der Bildschirmposition auch eine 
Farbe für die betreffende Stelle angegeben wird. Ohne 
eine Farbangabe werden die Zeichen in der Hintergrund- 
farbe dargestellt - sind also nicht zu sehen! 


Das Beispiel in der Beschreibung der Bildschirm- 
speicher-Tabelle muß also um eine Farbangabe erweitert 
werden, z.B. durch: 


25 POKE 55296+41,7 


Jetzt wird die Reihe aus Kreisen in gelber Farbe 
sichtbar. 


. Die Code-Werte für die Farben finden Sie in der 
Übersicht hinter der Farbspeicher-Tabelle. 
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30 


2% 


FARBSPEICHER 


10 


FARBCODES 


oO 


SCHWARZ 
WEIB 

ROT 
TÜRKIS 
VIOLETT 
GRUN 
BLAU 
GELB 
ORANGE 
BRAUN 
HELLROT 
GRAU I 
GRAU2 
HELLGRUN 
HELLBLAU 
GRAU3 


_— 


2 
3 
l, 
5 
6 
’ 
8 
9 
0 


—_— 


Der Grafik-Speicher 


Für die Darstellung in der hochauflösenden Grafik 
ist der Grafik-Speicher (8192 bis 16191) zuständig. 
Durch die Werte dieser Speicherplätze wird bestimmt, an 
welchen Bildschirmstellen Punkte gesetzt werden. 


Die erste Speicheradresse (8192) bezieht sich auf 
die erste Reihe des normalen Bildschirmkästchens in der 
linken oberen Ecke, die achte Adresse bezieht sich auf 
die letzte Reihe dieses Kästchens, die neunte auf die 
erste Reihe des rechts daneben liegenden, usw. Diese 
Art der Speicheraufteilung weicht deutlich von der von 
den Sprites bekannten ab! 


Um Ihnen das Auffinden der Speicherplätze zu er- 
leichtern, z.B. wenn Sie einzelne Zeichen definieren 
wollen, ist die Speichereinteilung in der folgenden 
Tabelle dargestellt. 


Die Aufgabe eines Farbspeichers übernimmt in der 
hochauflösenden Darstellung der Bildschirmspeicher,. 
(Deshalb erscheinen die Systemmeldungen im Grafik-Modus 
in Farbe). 
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HEBRÜHBHEE | Jos zus] zusst 
KERRIBERE Dis 
-eeerFee noch 
ABER RENE | Teslas|zum 
IF Ierreet een 
SEBHEBRENH (w|zz| u 
EENETEIRECERENZE 
3 u DC: DH ER CD ER ER ER ER 
EEEEUEEEESEREEEC:EOL; 
nun 1] Iomlzes] z062 
Haben etelion 
SEBEN-BBEB-EBEES au 

zeozı 


[ATAN 
Z6ELL 
ZLUl 
ZsL0l 
ZEr0L 
zıı0L 
L6L6 
2146 
2S16 
ZEBB 


Z158 
L6L8 


Sp. 1 Eee = Daten bb I a Et 


Das Sprite-Datenblatt besteht aus einem Raster von 
24x21 Kästchen, die den Punkten entsprechen, aus denen 
sich ein Sprite zusammensetzt. 


Hat man eine Figur in das Raster eingezeichnet, 
werden die Daten wie folgt berechnet: Die Zahlen am 
oberen Rand der Tabelle, die über ausgefüllten Kästchen 
einer Gruppe stehen, werden addiert und in die Daten- 
tabelle übertragen. (Näheres dazu in Kapitel 6 und 9). 


Ist das Datenblatt vollständig ausgefüllt, kann 
man ein Sprite — wie in Kapitel 6 beschrieben - auf dem 
Bildschirm erscheinen lassen. 


Eine Folie mit dem oben besprochenen Raster sowie 
ein Hilfsprogramm zur Erstellung von Sprites auf dem 
Bildschirm findet sich in unserem Grafikbuch zu diesem 
Rechner. 
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SPRLITE=DATENBLATT 


DATEN 


Tele 


TEIL:2 


FETET 


SP. 


22) 
a 
19) 
N 
u 


p 


] 


Do] 
- 
N 
m 


o 
-— 


Sprecher ber. I.cht. x prites 


Die nächsten Tabellen enthalten alle für die Pro- 
grammierung von Sprites wichtigen Speicherplätze und 
deren Funktionen. Einige Anwendungen dazu befinden sich 
in Kapitel 6. 
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SPEICHERTABELLEN=SPRITES 
(V=-53248) 


SPRITE 0 X -KOORDINATE 
Y -KOORDINATE 


Fr 


SPRITE 
SPRIETE 
SPRI TE 
SPRITE 
SPRITE 
SPRITE 


SPRI TE 


[n 
in 
N 
UL 
U 
De) 
I 
U 
(ER 
\ 
= 
Q 
x 
®) 
8) 
x 
) 
x 
u 
m 
fi 
Q_ 
02) 


SPRITE:EIN-UNDAUSSCHALTEN 


SPRITE:INY-VERGRÖSSERN 


SPRITE:HINTERGRUND- PRIORITÄT 


2 
] 


SPRITE:MEHRFARBIG 


ErAZ 


SPRITE:INX-VERGRÖSSERN 


SPRITE:MITSPRITE KOLLISTON 


TE:HINTERGRUNDKOLLISION 


204 72046 |2045|2044 20432012120. oxo 
DIZEIEIKIEIEITIER 


Se gen Er U Der ee: Musik 


Die für die Programmierung von Musik wichtigen 
Speicher sind in den folgenden Tabellen angegeben. Die 
Aufgaben der einzelnen Adressen sind umfassend in Kapi- 
tel 7 besprochen. In Kapitel 10 finden Sie ein Hilfs- 
programm, das die Eingabe von einfachen Melodien erheb- 
lich vereinfacht. Ä 
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SPEICHERTABELL EN = MUSIK 
51254272) 


IS L.IMME 


| am men. 
gilt nur bei RECHTECK O bis 255 


2» S-1MME 


SI« 1] WELLENFORM 
en esenwei LEN 
3.STIMME 


anf am men I 
giltnur bei RECHTECK 0 bis 255 


g’lt nur bei RECHTECK 


O0 bis 255 


O bis 15 
RAUSCHEN RECHTECK SAGEZAHN DREIECK 


IE«AN«:-AB;,ANAB«e!S 
I6nAS«AF,AS,A fF=]5 


SI #.2%6 


STIMME! bıs STIMME? 
I-15(max.Lautstärke) 


s14.29 


TIEFPAR 


16 


BANDPARHOCHPAR|ISTIMME3 
aus 


STIMMEISTIMMEZSTIMMEBEXtern Resonanz | 
Bel re en 


SI« 21 SI+ 22 


Filterfrequenz Filterfreguenz 
Low- Nybble Hıgh-Byte 


Frequenz - Tabelle 


Die folgende Tabelle enthält eine vollständige 
Liste der Notennummern, der Notenbezeichnungen mit 
Angabe der Oktave sowie die beiden Werte für das High- 
und Low-Byte zum Erzeugen des jeweiligen Tones. 
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Noten- Note und Freauenzwert 


nummer Oktave Dezimal HI LOW 
o c-0 268 1 12 

ä CHSO 284 A 28 

2 D-O 301 1 45 

3 DH-O 318 4 62 

4 E-O 337 a 81 

5 F-O 358 1 102 

6 F-# 0 379 1 123 

7 G-0O 401 1 145 
8 GH Oo 425 A 169 
9 A-O 454 4 195 
ale At-O AT 1 221 
17 H-O 506 1 250 
16 c-1 536 2 24 
47 cH- 568 2 56 
418 D-1 602 2 90 
19 DH- 1 637 2 125 
20 E-1 675 2 163 
21 | F-1 716 2 204 
22 Fh-1 758 2 246 
23 G-1 803 3 35 
24 c- 851 3 83 
25 A-7 902 3 134 
26 Alf- 1 955 3 187 
27 H-14 AO 3 244 
32 G=2 1072 4 48 
33 CHh->2 1136 4 172 
34 D-2 1204 4 180 
35 Df-2 1275 4 251 
36 E-2 1351 5 71 
37 F-2 4432 5 152 
38 Ff-2 1517 5 2a 
39 | G=2 1607 6 71 
40 cH-2 14703 6 167 
41 A-2 1804 7 12 
42 At-2 1911 7 119 
43 H-2 2025 7 233 
48 c-3 2145 8 97 
49 cH-3 2273 8 225 
50 D-3 2408 9 104 
51 DH-3 2551 9 247 
52 | E-3 2703 10 143 
53 F-3 2864 74 48 
54 Ela 3034 14 218 
55 G-3 3215 42 143 
56 GI-3 3406 13 78 
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Noten- 
nummer 


Note und 


Oktave 


A-3 
At-3 
H-3 
C-4 
cH-4 
D-4 
D#H-4 


ni 


IE 4 


NSNNTINTITNO 
| 


S] 


tes rohere 
Il 
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Frequenzwert 
Dezimal 


3608 
823 
AOSO 
4291 
4547 
4817 
5103 
5407 
B1.28 
6069 
6430 
6812 
Le1T 
7647 
8101 
8583 
9094 
9634 
10207 
10814 
11457 
12139 
12860 
130285 
14435 
15294 
16203 
17107 
18188 
19269 
20415 
21629 
22915 
24278 
25721 
27251 
28871 
30588 
32407 
34334 
36376 
38539 
40830 
43258 
45830 


HI 


LOW 


Noten- Note und Frequenzwert 


nummer Oktave Dezimal HI LOW 
118 Fi-7 48556 189 1.22 
119 G-7 51443 200 243 
120 GE-7 54502 art 230 
12 A-7 iA 225 143 
122 AT-7 61178 238 248 
123 H-7 64814 253 46 
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Die Commodore - Zeichen 


Die folgenden Seiten geben eine Übersicht über die 
Commodore-Grafik-Zeichen. 


In der Tabelle ist angegeben, auf welcher Buch- 
staben-Taste das jeweilige Zeichen zu finden ist, sowie 
der CHR$-Wert des Zeichens und die POKE-Werte des 
Zeichens in der normalen und winversen Darstellung. 
Hierbei wurden einige im Commodore-Handbuch vorkommende 
Abweichungen zwischen CHR$-Wert und dazugehörigem 
Zeichen richtiggestellt. 
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POKE und CHRS -WERTE 


ZEICHEN TASTE|\ POKEWERT CHRE& 
normal invers | 


kl 64 192 96 
[@] A 65 193 97 
I B 66 194 98 
4 c 67 195 99 
m D 68 196 100 
D E 69 197 ‚0 
[] F 70 198 102 
IM G 71 199 103 
I H 72 200 104 
N] I 73 201 105 
x J 74 202 106 
P] K 75 203 107 
[ L 76 204 108 
N) M 27 205 109 
WA N 78 206 10 
[) Oo 79 207 ı 
1 P 80 208 112 
[@ Q 81 209 113 
[|] R 82 210 11 
[o Ss 83 21 115 
l] r & 22 116 


ZEICHEN TASTE | POKEWERT CHRS& 
normal invers 


7 


LEERZEICHEN 


NEIDBEODOD URS; RRISBSeBEHB HH BORN 
BE 


N 


213 
214 
215 
216 
217 
218 
219 
220 
2.21 
222 


2:23 


22% 


225 
226 
2.27 


228 


229 


230 
231 
232 


233 


117 


ZEICHEN TASTE\ POKEWERT CHR $ 
normal invers 


4 106 234 170 
IF 107 235 171 
r 108 236 172 
8 109 237 173 
= 110 238 17% 
mu 111 239 175 
® Be 240 176 
HH 113 341 177 
FH 114 242 178 
H) 115 243 179 
[ 116 244 180 
[ 117 245 181 
B 118 246 182 
= 119 247 183 
m 120 248 184 
u 121 249 185 
u 122 250 186 
"7 123 251 187 
L 124 252 188 
FR] 125 253 189 
M 126 254 190 
„" 127 255 191 


a a ee a en 


wenn Sie sich schon etwas mit Ihrem Computer be- 
schäftigt haben, werden Ihnen viele der folgenden 
Begriffe mit Sicherheit bekannt vorkommen. Hier geht es 
nämlich um die Fehlermeldungen des BASIC-Interpreters. 
Die 'ach so ärgerlichen' Fehlermeldungen ermöglichen es 
Ihnen, viele Programmierfehler zu erkennen und zu 
korrigieren. Die Fehlermeldungen des BASIC-Interpreters 
werden in alphabetischer Reihenfolge aufgeführt. 


BAD DATA 

Es wurde versucht, von einem File String-Werte 
einzulesen. In dem Programm wurden jedoch numerische 
Daten erwartet, z.B.: 

READ A,W,B 
obwohl in dem Datenfile A$,W$,B$ abgespeichert wurde. 


BAD SUBSCRIPT 

Sie verwenden eine windizierte Variable, deren 
Index größer ist, als in der DIM-Anweisung vorgesehen 
wurde. 


CAN'T CONTINUE 

Der Befehl CONT kann nicht ausgeführt werden, wenn 
ein Programm unterbrochen und anschließend eine Zeile 
verändert wurde. Diese Fehlermeldung erscheint eben- 
falls, wenn - nach CONT - ein Fehler auftrat oder das 
Programm nicht mit RUN gestartet wurde. 


DEVICE NOT PRESENT 

Es wurde versucht, ein Peripheriegerät (z.B. Disk) 
anzusprechen, das entweder nicht eingeschaltet oder 
nicht vorhanden ist, z.B.: 

SAVE "TEST,9 
wenn kein zweites Laufwerk (mit der Gerätenummer 9) 
vorhanden ist, erfolgt die Fehlermeldung. 


DIVISION BY ZERO 
Eine Division durch Null ist mathematisch nicht 
definiert und daher unzulässig. 


EXTRA IGNORED 

In einer INPUT-Anweisung wurden zuviele Variablen 
eingegeben. Der Rechner ignoriert die überzähligen 
Variablen und setzt das Programm fort. 
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FILE NOT FOUND 

Es wurde versucht, ein File mit einem bestimmten 
Namen anzusprechen, das nicht existiert oder dessen 
Name falsch angegeben wurde. 


FILE NOT OPEN 

Es wurde versucht, ein vorher nicht mit OPEN ge- 
öffnetes File anzusprechen, z.B.: 

10 REM FALSCHE DRUCKERANSPRACHE 

20 PRINT#1,"DATEI" 
Es muß folgende OPEN-Anweisung eingefügt werden: 

15 OPEN 1,4 


FILE OPEN 

Diese Fehlermeldung tritt auf, wenn Sie versuchen, 
ein bereits geöffnetes File mit einer DOPEN-Anweisung 
anzusprechen, z.B.: 

OPEN 1,4: PRINT#1, 

OPEN 1,4: PRINTH1, 
Entweder müssen Sie hier die erste OPEN-Anweisung durch 
CLOSE 1 auch wieder schließen, bevor Sie ein zweites 
Mal OPEN 1,4 verwenden, oder die zweite OPEN-Anweisung 
muß entfallen. 


FORMULA TOO COMPLEX 
Ein verwendeter String-Ausdruck ist zu umfang- 
reich, oder eine Formel enthält zuviele Klammern. 


ILLEGAL DIRECT 
Eine nicht direkt ausführbare Anweisung (z.B. 
INPUT) wurde im Direktmodus verwendet. 


ILLEGAL QUANTITY 
Das Argument einer Funktion liegt außerhalb des 
zulässigen Bereichs. 


LOAD 
Ein Fehler ist beim Laden eines Programms von der 
Kassette aufgetreten. 


NEXT WITHOUT FOR | 

Diese Fehlermeldung tritt auf, wenn Schleifen sich 
überkreuzen bzw. die Laufvariable einer NEXT-Anweisung 
nicht der bei FOR verwendeten entspricht, z.B.: 

10 FOR I = 1 TO 10 

20 PRINT I,I*2 

30 NEXT J 
oder: 
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10 REM NEXT WITHOUT FOR 
20 FOR I = 1 TO 10 

30 FOR ) = 1 TO5 

40 PRINT I,J,I*J 

50 NEXT I 

60 NEXT J 


NOT INPUT FILE 

Sie haben versucht, durch INPUT# oder GET*= Daten 
aus einem File zu lesen, das nur zum Schreiben geöffnet 
wurde. 


NOT OUTPUT FILE 
Daten sollten mit PRINTH an ein File übergeben 
werden, das nur zum Lesen geöffnet wurde. 


OUT OF DATA 
Mit der READ-Anweisung sollten mehr Daten eingele- 
sen werden, als in den DATA-Zeilen vorhanden sind. 


OUT OF MEMORY 

Es ist kein RAM-Bereich mehr verfügbar. Diese 
Fehlermeldung kann folgende Ursachen haben: 

1. Das Programm oder die Variablen brauchen mehr 
Speicherplatz, als vorhanden ist. 

2% Es wurden zu viele FOR NEXT-Schleifen oder 
Unterprogramme ineinander verschachtelt. 

3. Es wurden zu viele Klammern geöffnet. 


OVERFLOW 
Das Ergebnis einer Berechnung ist größer als die 
größte zulässige Zahl. 
REAL-Zahlen müssen im Bereich von 
-2.93873588E - 39 bis 
1.70141183E + 38 liegen. 


REDIM'D ARRAY 
Es wurde versucht, ein Feld zum zweiten Mal zu 
dimensionieren. 


REDO FROM START 

In einer INPUT-Anweisung wurden numerische Werte 
erwartet, Sie haben jedoch Strings eingegeben. Dieser 
Fehler führt nicht zum Programmabbruch. Das Programm 
wird fortgesetzt, wenn nach der Fehlermeldung Zahlen 
eingegeben werden. 
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RETURN WITHOUT GOSUB 

Eine RETURN-Anweisung wurde im Programm gefunden, 
zu der die entsprechende GOSUB-Anweisung fehlt. 

Dieser Fehler entsteht z.B. dann, wenn in ein 
Unterprogramm mit GOTO hineingesprungen wird, oder das 
Unterprogramm nach dem Hauptprogramm steht, und das 
Hauptprogramm nicht mit END abgeschlossen wurde. 


STRING TOO LONG 
Sie haben versucht, einem String mehr als 255 
Zeichen zuzuweisen. 


SYNTAX 

Diese wohl am häufigsten auftretende Fehlermeldung 
tritt auf, wenn eine Anweisung vom Computer nicht er- 
kannt werden kann, z.B. durch einen Schreibfehler, 
Fehlen einer Klammer oder eines Kommas usw. 


TYPE MISMATCH 
Es wurde versucht, einer Stringvariablen eine Zahl 
zuzuordnen bzw. umgekehrt. 


UNDEF'D FUNCTION 
Es wurde Bezug genommen auf eine selbst definierte 
Funktion, die noch nicht mit DEF FN definiert wurde. 


UNDEF'D STATEMENT 

Diese Fehlermeldung wird dann ausgegeben, wenn zu 
einer nicht vorhandenen Zeilennummern verzweigt werden 
soll. 


VERIFY 

Das Programm im Arbeitsspeicher stimmt nicht mit 
dem angesprochenen auf der Diskette bzw. Kassette Üüber- 
ein. 
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lILiteraturverzeichris 


Weitere Bücher zur Corrcdore 64: 


1% COMMODORE BUSINESS MACHINES, Inc. (Hrsg.): 
"Commodore 64 Programmer's Reference Guide". 
Howard W. Sams u. Co., Inc., Indianapolis (1983). 


Sehr umfangreiche (englische) Dokumentation Zu 
diesem Computer, u.a. mit BASIC- und Maschinensprache- 
Einführung. Ausführliche technische Beschreibung der 
verwendeten Microchips. 


2. COMMODORE GmbH  (Hrsg.): "(Commodore Microcomputer 
Handbuch". Commodore GmbH, Frankfurt (1982). 


Die dem Commodore 64 beigelegte, leider sehr spär- 
liche Anleitung zu diesem Computer, 


Ir ANGERHAUSEN,„M. 7BECKER, UL Z/ENGLEISCH LEE /GERRITS,K Ss? 
"64 Intern. Das große Buch zum Commodore 64". DATA 
Becker GmbH, Düsseldorf (1983). 


Das Buch enthält das komplette ROM-Listing, außer- 
dem vielfältige Informationen über den Rechneraufbau. 
Programme überwiegend in Maschinensprache, deshalb eher 
für den erfahrenen Programmierer. 


4. ANGERHAUSEN,M./ ENGLISCH,L./ GERRITS,K.:; "64 Tips 
und Tricks: Eine Fundgrube für den Commodore 64- 
Anwender". DATA Becker GmbH, Düsseldorf (1983). 


Zahlreiche Programme, sowohl in BASIC, als auch in 
Maschinensprache. Zusätzlich Informationen über andere 
Programmiersprachen und das CP/M-System zu diesem Com- 
puter,. 


rs ELSING,J./HERRMANN,D.: "Wirtschaft auf dem Commo- 
dore 64". IWT-Verlag, Vaterstetten (1983). 
Programmsammlung mit Erläuterung der wirtschaft- 


lichen Grundlagen, 2, Bu$ Lohnsteuerberechnung, Zins- 
rechnung, Optimierung. 
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6% ELSING,J./STERNER,H./WAGNER,A.: "Grafik auf dem 
Commodore 64. Anregungen und Erläuterungen in 
BASIC." IWT-Verlag, Vaterstetten (1983). 


Leicht verständliche Einführung mit vielen Pro- 
grammen zu den Grafikmöglichkeiten des Commodore 64, 
u.a. ein Hilfsprogramm zur Sprite-Erstellung auf dem 
BiLadschirn. 


Für alle im IWT-Verlag erschienenen Bücher zum 
Commodore 64 sind auch Disketten erhältlich. 


Weitere BASIC-Literatur: 
ls MENZEL,K.: "BASIC in 100 Beispielen". Teubner, 
Stuttgart (1982). 
Außer einer kurzen Darstellung der Grundlagen der 
BASIC-Programmierung enthält das Buch vor allem eine 


Sammlung von 100 kurzen Programmen mit Beschreibung. 


8% SCHUPPZW. "Schüler programmieren in BASIC." 
Schoeningh, Paderborn (1980). 


Ein Lehr- und Übungsbuch mit 150 Programmbeispie- 
len und 260 Ubungsaufgaben. 
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Stichwortverzeichris 


A 


ABS 56 

Absoluter Wert 56 

Abschwellen 118 

Adresse 86 

Algorithmus 18 f. 

AND: 63: ff«, 168 

Anführungszeichen 25 f., 
31,59 

Anhängen von Daten 77 f. 

Anschlag 114, 118 

arithmetische Operationen 
PO-IR: 

ASC 59 

ASCII-Code 59 

ATN 56 

Ausgabe 25 f. 

Aushalten 118 

Aussage 63 f. 


B 

BASTG.16.. 25. Ffz,.41 FTz 

BASIC-Speicher verkleinern 
159 f. 


Bedingung 35 

Bildschirmspeicher 87 ff. 

Bildschirmspeicher ver- 
schieben 157 f. 

Bit 165 ff. 

Byte 165 ff. 

Binärzahlen 166 f. 


C 


CHR$ 59 

CLOSE 73 

CLR-Taste 144 

CONT 336 

‚COS 56 

Cosinus 56 
Cursorsteuerung 143 ff. 


D 


DATA 41 

Datei: 717; 
Datenverarbeitung 15 
Datenverwaltung 77 f. 
DEF FEN. 97: 488 
Dialog 30 

DIM 53 

Direkt-Modus 26 
Disk(ette) 37, 69 f., 
Dollar-Zeichen 59 ff. 
Doppelpunkt 32 
Dreiecks-Wwelle 116 
Dual-System 166 f. 
Dezimal-System 166 


Dezimalzahlen 45, 166 


E 


Eingabe 29 ff. 

END 42 

EXP 56 

Exponentielle Notation 
46 f. 


F 


falsch 63 f, 

Farbcodes 314 
Farbspeicher 87 ff. 
Fehlermeldungen 336 
Feld 50 ff. 

File 71 

Filter 7127 
Flußdiagramm 17 ff. 

FN 57 

FOR NEXT 44 
Formatierfunktionen 56 
FRE 62 

Freier Speicher 62 
Frequenz 113, 116, 
Funktionen 56 ff. 
Funktionstasten 160 f. 
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B% 


G 


Ganze Zahlen 45 
Gerätenummer 69 f. 
GET 35 

GETH 75 

gleich 63 

GOSUB 49 

GOTO 35 

Grafik 107 ff. 

größer als 63 

größer oder gleich 63 
Groß/Kleinschrift 1519 
Großschrift/Grafik 151 


H 


Hauptprogramm 48 

Hexadezimal-System 169 ff. 

High-Byte 167 ff. 

Hintergrundfarbe 90 

Hochauflösende Grafik 95, 
107 7% 

HOME-Taste 144 

Hüllkurve 118 


I 

IF: 2: TEIEN. 88 
Index 50 f. 
INPUT 30 
INPUTF 74 
Instrumente 116 
INT 49, 57 


Integer-Variablen 45 f. 
invers 145 


K 


Kassettenrecorder 37, 
Klang 113 

kleiner als 63 

Komma 27 

Kommentar 42 


6Hf. 


L 


Laden von Daten 74, 76 
Laden von Programmen 37, 70 
Laufvariable 44 

Lautstärke 113 

Leerzeichen 27, 56 
Leerzeile 28 

LEFTS6O 

LEN 59 

BET 34 

linearer Programmablauf 33 
LIST 29 

LOAD 37, 70 

Löschen 28, 62 

E.9G:57 

Logarithmus 57 | 
logische Filenummer 72 
logische Operatoren 63 ff. 
logische Variablen 63 
Low-Byte 167 ff. 


M 


Mantisse 47 
Maschinensprache 62 
Mathematische Funktionen 58 
Mehrfarben-Modus 90 
Melodie 114 f. 

MID$, 60 j 

Musik, einstimmig 113 ff. 
Musik, mehrstimmig 127 ff. 
Musik-Übersicht 138 f. 


N 


Name von Programmen 37 
Name von Variablen 30 f., 


45 
NEW 28 
NEXT 44 


Nibble 165 ff. 


NOT 63. f. 

Noten 113 ff. 

Noteneingabe 125 

Numerische Funktionen 56 f. 
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O 


ODER 63 

DON. GOTE 759 
ON s.. GOSUB 50 
DBPEN.FT 

OR BE FF% 


P 


PEEK 86 

POKE 86 

POS 56 

Potenz 56, 166 
PRINT 22: ff; 
PRINTH 72 
Programm 15 


Programmiersprache 16 
Prozent-Zeichen 45 f. 
Puffer s. Speichertabelle 


Q 


Quadratwurzel 58 


R 


Rahmenfarbe 90 
RAM 85 

READ 41 
Real-Variablen 45 
Rechteck-Welle 116 
REM 42 

RESTORE 42 

RETURN 49 
RETURN-Taste 25 f. 
RIGHT$ 60 

RND 57 

ROM 85 f. 

RUN 26 
RUN/STOP-Taste 49 
Rundung 57 


S 


Sägezahn-Welle 116 

SAVE 37, 69 

Schleifen 44 f. 

Schwingung 208 

Semikolon 27 

sequentiell 77 

SGN 58 

Signum 58 

SEIN: 58 

Sinus 58 

Sound-Chip 113 ff. 

Sortieren 238 ff. 

Space 56 

SPC 27, 56 

Speichern von Daten 71 ff, 
73 7% 

Speichern von Programmen 
37, 69 

Speicherorganisation 85 ff. 

Speicherplatz 46, 53, 85fF. 

Spiele 262 ff. 

Sprites 95 ff. 

Sprites-Übersicht 105 f. 

Sprung 35 f. 

SOR 58 

ST 81 

STEP 44 

Steuerzeichen 145 

STR$ 61 

Strings 32 ff., 45 ff., 
89. 7% 

String-Variablen 32,45,59 

Strukturierte Programmierung 21 

Syntax 16 

SYS 62 


T 


TAB: 275: 586 

Tabellen 306 
Tabellenverarbeitung 50 f. 
TAN 58 

Tangens 58 

Tastatur 26 

Teillstring 60 f; 
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Text 32 Z 
Textverarbeitung 59 f. 


THEN 35 Zahlenwert 32 

TI 32 Zeicherfarbe 107 

TI$ 32, 176 Zeichenfolge 32 

To 44 Zeichenrkette 32 f., 59 f. 
Tondauer 113 ff. zerchens.tze 142 Fr... 191 
Tonerzeugung 113 Zeichersatz ändern 148 
Tonhöhe 113 Zeiger 42,160 

Tonleiter 125 Zeilernrurrerr 26 


Zufallszahien 57, 91% 
Zusarrerfassung, Musik 138 


U ts 
Zusarrenfassung, Sprites 
Uhr 176 22 rs 
Umwandlung von Strings in Zuwelsurg 29 ff, 
Zahlen 61 Zwischerspeicher 3% 
Umwandlung von Zahlen in 
Strings 61 


Umwandlung zwischen Zahlen- 
systemen 196 

ungleich 63 

Unterprogramme 48 f. 

USR 62 


V 


VAL 61 

Variable 30f., 45 ff. 
Vergleichs-Operatoren 63 
VERIFY 70 f. 

Verknüpfung, logische 63 f. 
Verknüpfung von Strings 6 
Verzweigungen 33 ff., 50 
Video-Chip 95 f., 150 f. 
Vordergrund-Farbe 90 


w 


wahr 63 f. 

Wahrheitswert 63 f. 
Wahrscheinlichkeit 194 

WAIT 62 

Wellenform 114 

wissenschaftliche Notation 46 f. 


sans 


kore] Grafik auf dem Commodore 64 


J.Elsing H,Sterner AWagner Von Jürgen Elsing, Heinz Sterner und Annette Wagner, alle Bochum, 
SERIEN @] 138 Seiten, 1 Folie, 1983, ISBN 3-88322-027-2, Spiralh., DM 38,— 


Ausgehend von einfachen Grafiken mit den ‚„‚fest eingebauten’ Grafik- 
Zeichen des Commodore 64, führt das Buch systematisch zu den an- 
spruchsvolleren grafischen Gestaltungsmöglichkeiten dieses Compu- 
ters, illustriert jeweils durch ein typisches Beispiel-Programm. Unter 
anderem findet man ein Hilfsprogramm zur Erstellung der ‚Sprites’’- 
Grafik, einer besonderen Grafik-Möglichkeit dieses Computers zur Er- 
zeugung beweglicher Figuren. 

Zahlreiche Tabellen und Übersichten runden die Darstellungen ab. Die 


' Anregungen und iti ie hilf i r n ite-Fi 
sfsterungen in BASIC beiliegende Folie hilft bei der Erstellung von Sprite-Figuren. 


Wirtschaft auf dem Commodore 64 ®] 


Von Jürgen Elsing, Bochum und Dietmar Herrmann, Anzing, ca. 200 Seiten, mehrere Abbildungen, 1983 
ISBN 3-88322-030-2, Spiralh., ca. DM 38,— 


Dieses Buch enthält 40 Programme aus den Bereichen Finanzmathematik, Unternehmensforschung 
(Operationsresearch) und Betriebswirtschaft. Einige Einzelthemen: Zins- und Rendite-Berechnungen, 
Renten- und Tilgungsberechnungen, Optimierungs- und Entscheidungstheorie, Investitionsrechnuna, 
Lohnsteuer und Abschreibungen. 

Alle Programme werden durch zahlreiche, durchgerechnete Beispiele erläutert. 


BASIC auf dem Commodore 64 Ksıe] 
BASIC-E inführung und Erläuterung spezifischer Eigenschaften 

Von Jürgen Elsing, Heinz Sterner und Annette Wagner, alle Bochum, 

ca. 352 Seiten, 1983, ISBN 3-88322-029-9, Spiralh., ca. DM 56,— @| 


Aus dem Inhalt: Allgemeine Grundlagen — Programmieren in BASIC 
— Speicherorganisation — Sprites und hochauflösende Grafik — Musik- 
Programmierung — BASIC-Programmsammlung — BASIC-Übersicht — 
Tabellen — Stichwortverzeichnis — Literaturverzeichnis — Sachgebiete 
— Kalender — Mathematik — Statistik — Finanzmathematik — Grafik 
— Musik — Spiele — Simulation — Lernen. 


@] Einführung in Logo 


Von Harold Abelson und Prof. Herbert Löthe, Rommelshausen 
196 Seiten, 1983, ISBN 3-88322-023-X, Spiralh., DM 42,— 


Logo ist eine leicht zu erlernende Computersprache, die in USA be- 
reits bei Kindern erfolgreich eingesetzt wird. Sie ist aber keine ”Spiel- 
sprache’”’ sondern besitzt wichtige Eigenschaften moderner Program- 
miersprachen. 

Ein wesentlicher Teil von Logo ist die "Igel-Grafik’”. Mit einfachen 
Befehlen und Programmen können auf dem Bildschirm komplexe 
Zeichnungen erstellt werden. Logo ist eine interpretierende Program- 
miersprache, so können alle Funktionen und Programme ohne Warte- 
zeit sofort ausgeführt werden. 


CBASIC -- CB 80 . 
für Personal-Computer mit CP/M-Betriebssystem — Eine Einführung — KL, 


Von David Possin, Hildesheim, ca. 200 Seiten, 1983 
ISBN 3-88322-034-5, Spiralheftung, ca. DM 56,— 


Aus dem Inhalt: Basisinformation zu CBASIC — Programmaufbau — 
Datentypen und Deklarationen — Anwenderdefinierte Funktionen — 
Ausdrücke und Zuordnungen — Vordefinierte Funktionen — Der Ab- 
lauf der Steueranweisungen — Ein-/Ausgabe-Verarbeitungsbefehle — 
Dateiverarbeitungsanweisungen — Formatierte Ausgaben — Der Com- 
piler Betrieb — LK 80 (Linker) — Die Programmbibliothek von CB-80 
— CBASIC II und CB 80 — Syntaxdiagramme — Diverse Anhänge. 


CBM 8050 - DOS - Listing 


Betriebssystem im Detail 


GB 8050 


Von Dr. Ruprecht, München, 168 Seiten, zahlreiche Programme, s 
ISBN 3-88322-015-9, Ringordner, DM 104.-- DOS-LIS IING 


In einer Art überdimensionalen Kreuzworträtsel ist es dem Autor ge- Betriebssystem 
im Detail 


lungen, das Betriebssystem der CBM 8050 zu ‘'knacken‘‘. Dieses Werk 
ist nicht nur für “tätige’‘ Programmierer, sondern auch für ’'nur neu- 
gierige’' Computer-Fans: Sie bekommen hier Einblick in das Zusam- In 
menwirken von zwei 6502-Prozessoren. Hinzu kommt der Datenver- (7/4 
kehr über PIAs mit dem Rechner. Dieses System arbeitet dann sehr 
selbständig zeitlich parallel. Ein Leckerbissen für alle, die ihren Com- 
modore noch besser nutzen wollen. 


Dr. Ruprecht 


Herrmanns CBM Programmsammlung in Basic 
Band 1: Spiele, Knobeleien und Simulationen 


Von Dietmar Herrmann, Anzing, 232 Seiten, 2. Auflage 1933 
ISBN 3-88322-0 13-2, kart., DM 32,— 


Der erste Band einer neuen Reihe, die mit zahlreichen Programmen 
für Spiele und ‘ernsthafte ° Themen den Commodore-Computer dem 
Benutzer näherbringt. Dietmar Herrmann hat aus seiner Schulpraxis 
heraus Programme entwickelt, die das Lernen und Spielen mit dem 
Computer zum Vergnügen machen. 


Herrmanns CBM Programmsammlung in Basic 
Band 2: Wirtschaft 


Von Dietmar Herrmann, Anzing, 204 Seiten, 1983 
ISBN 3-88322-014-0, kart., DM 32,— 


Jetzt wird es ernst: Hier wird Ihnen gezeigt, wie Sie Ihren Commo- 
dore-Computer für sich arbeiten lassen können: Er hilft Ihnen z.B., 
Ihren Lohnsteuer-Jahresausgleich oder die Einkommensteuer-Er- 
klärung zu erledigen, zeigt Ihnen grafisch, wohin die Staatsverschul- 
dung geht — oder auch Ihre eigene, berechnet Ihre Zinsen (Soll oder 
Haben) auf der Bank, oder wie Sie Ihr Haus finanzieren können. 


Herrmanns CBM Programmsammlung in Basic 
Band 3: Mathematik 


Von Dietmar Herrmann, Anzing, ca. 200 Seiten, 1983 
ISBN 3-88322-016-7, kart., ca. DM 38,— 


Aus dem Inhalt: Arithmetik — Zahlentheorie — Kombinatorik — 
Algebra — Geometrie — Numerische Mathematik. 


Wirtschaft auf dem APPLE Il / Ile B 


Von Jürgen Elsing, Bochum und Dietmar Herrmann, Anzing, ca. 200 Seiten, mehrere Abbildungen, 1983 
ISBN 3-88322-035-3, Spiralh., ca. DM 38,— 


Dieses Buch enthält 30 Programme aus den Bereichen Finanzmathematik, Unternehmensforschung 
(Operationsresearch) und Betriebswirtschaft. Einige Einzelthemen: Zins- und Rendite-Berechnungen, 
Renten- und Tilgungsberechnungen, Optimierungs- und Entscheidungstheorie, Investitionsrechnung, 
Lohnsteuer und Abschreibungen. 

Alle Programme werden durch zahlreiche, durchgerechnete Beispiele erläutert. 


Basic aus der Praxis @] 
Typische Programmbeispiele für alle Berufe 

Von Karl-Wilhelm Hillerkus, Lübbecke, ca. 220 Seiten, 1983 

ISBN 3-88322-031-0, Spiralheftung, ca. DM 40,-— 


Dieses Buch enthält 30 lauffähige Programme aus den Arbeitsberei- 
chen: Suchen — Schreiben — Rechnen — Sortieren.Sie sind an keinen 
Rechner gebunden, da sie unter CP/M und MBasic geschrieben sind. 
Sie entstanden aus der praktischen Arbeit heraus und haben sich des- 
halb bereits bewährt. Auch der Newcomer” kann sie ohne Schwierig 
keiten einsetzen. — Ein weiterer Band soll folgen. 


In Vorbereitung: Basic aus der Praxis @| 
Programmbeispiele für kaufmännisch orientierte Berufe 


Von Karl-Wilhelm Hillerkus, Lübbecke, ca. 220 Seiten, 1983 
ISBN 3-88322-042-6, Spiralh., ca. DM 40,— 


SuperCalc im Einsatz Ly 


Von Ludwig Dodt, Frankfurt, ca. 200 Seiten, 1983 
ISBN 3-88322-040-X, Spiralheftung, ca. DM 48,— 


Aus dem Inhalt: Einleitung — Laden des SuperCalc-Programms — Der 
SuperCalc-Bildschirm — Das erste Arbeitsblatt — Speichern, Abrufen, 
Drucken — Ändern und Erweitern des Arbeitsblatts — Die Rechen- 
funktionen — Besondere Feldformate — Aufteilung des Arbeitsblatts 
— Verknüpfung von SuperCalc-Arbeitsblättern — Übertragen von 
Daten in andere Programme — Weitere Arbeitshilfen — Besonderhei- 
ten bei verschiedenen Mikrocomputern — Anwendungsbeispiele — 
Stichwortverzeichnis. 


Computertechnik für Manager 
Organisations-Manual 


Von Emil A.Widmer, Zug, Schweiz. Mit einem Vorwort von Dr. rer.pol. 
Peter G. Rogge, 222 Seiten mit zahlreichen Abb. und Organisations- 
schemata, 1981. Vertriebsrechte für alle Länder mit Ausnahme der 
Schweiz. 

ISBN 3-88322-019-1, geb. DM 128,— 

ISBN 3-88322-020-5, Ringordner DM 158,— 

Best.-Nr. IWT 205-X Zusätzliche Arbeitsblätter und Organisations- 
formulare, Satz DM 48,— 

Dieses Fachbuch wurde innerhalb kürzester Zeit in der Schweiz zu 
einem Bestseller. Es gibt dem Manager das Rüstzeug schnell und umfas- 
send den EDV-orientierten Ablauf des Betriebes in den Griff zu bekom- 
men. Das Buch wurde von der Beratungsfirma Interplamar aus der 
Praxis für die Praxis entwickelt. Durch die Arbeitsblätter kann das Orga- 
nisationsmanual in allen Bereichen eines Betriebes eingesetzt werden. 


Fordern Sie unseren ausführlichen Sonderprospekt an! 


In Vorbereitung: 

Computertechnik für Manager II: Management-Informationssysteme 
ISBN 3-88322-021-3, geb., ca DM 128,— 

ISBN 3-88322-022-1, Ringordner, ca. DM 158,— 


Zu diesen Titeln gibt es Disketten und/oder Kassetten. — Bitte Sonderkatalog anfordern! 


o| 


Wörterbuch der Computerei, E-D / D-E 


. Günther Daubach a mit Erläuterung der wichtigsten Begriffe und Fehlermeldungen 


| Wörterbuch : Von Dipl.-Ing. Günther Daubach, Burscheid, 2. erw. Auflage 1983 
derComputerei 


ISBN 3-88322-026-4, kart. DM 32,— 


Wer hat nicht bereits verzweifelt vor seinem Personalcomputer-Manual 
gesessen und versucht, das ''Computerchinesenglisch’” zu verstehen? 
Hier hilft jetzt das Wörterbuch der Computerei mit seinen über tausend 
Begriffen in beiden Sprachen. Außerdem sind die wichtigsten Begriffe 
zusätzlich erklärt. Ein handliches Nachschlagewerk für jeden, der sich 
mit Computerei beschäftigt. 


Mit Bräuterungen der wicht gran Bagriffe 
Ind Fehlermeldungen u 
Bee 
*  engisch-deutsch 
.„geulsch-engliach 


CP/M für die Praxis, Band 1: 


Vom Umgang mit CP/M - Eine allgemeinverständliche Einführung 


Von Bernd Pol, Stuttgart, ca. 350 Seiten mit zahlreichen praktischen 
Beispielen, 1982, ISBN 3-88322-004-3, geb. DM 48,— 


Am Anfang dieser Reihe über das neue Betriebssystem CP/M steht 
eine allgemeinverständliche Einführung. Dem Charakter eines solchen 
Buches gemäß ist es experimentierend angelegt und führt den Leser _ 
im ständigen Kontakt mit dem Computer Schritt für Schritt zu einer CRM firdiefranis 1 
umfassenden Übersicht bis hin zur Beherrschung des Systems auch bei 
Fehlfunktionen. 


mein-verstängliche Einführung 


BerndPol 
CPM = CP/M für die Praxis, Band 2/1: 
J im CP/M im Einsatz -- Tips und Tricks für die Programmierung 
insatz Von Bernd Pol, Stuttgart, ca. 250 Seiten. mit zahlreichen praktischen 
Beispielen, 1983, ISBN 3-88322-006-X, geb., ca. DM 48,— 


TipsundTricks für die Programmierung 


Dieser Band beschreibt alle wichtigen Einzelheiten des BDOS-Kerns und 
der CBIOS-Systemschnittstelle, die man für den praktischen Einsatz 
wissen muß und Hinweise zur Fehlerverminderung und -verhütung. 
Weitere Punkte: Aufbau eines CBIOS-Systems — Standardroutinen zur 
zeichenorientierten Ein- und Ausgabe — Standardroutinen zum Umgang 
mit Dateien — Fehlerbehandlung unter CP/M — Erweiterungsmöglichkei- 
ten des CP/M-Betriebssystems — Kompatibilitätsfragen zu MP/M u.a. 


CP/M für die Praxis, Band 2/ll 


CP/M im Einsatz — Programme zur praktischen Arbeit 


Von Bernd Pol, Stuttgart, ca. 360 Seiten mit zahlreichen ausgearbeite- BerndPol 
ten Programmen, 1983, ISBN 3-88322-032-9, geb., ca. DM 68,— 


m 
Dieses Buch enthält eine Fülle ausführlich kommentierter Programme, d YM im 


die die in 2/l dargestellten Konzepte verwirklichen und ein vollständi- _ 

ges Paket zur Arbeit auf Assembler-Ebene unter CP/M darstellen. Insa zZ 

Im einzelnen wird geboten: 

— ein Paket mit allgemein benötigten Hilfsprogrammen 

— eine Erweiterung der Systemschnittstelle zum Abfangenaller BDOS- 
Fehler unter CP/M 2.2 ähnlich wie bei CP/Mplus und MP/M II 

— ein Paket mit Programmen zum zentralisierten Dateizugriff 

— verschiedene Dienstprogramme Zur Erweiterung des CP/M-Systems 
und zum unmittelbaren Diskettenzugriff 


Programme zur praktischen Arbeit 


CPM für diePraxis 2 
Die Programme werden ausführlich kommentiert ineiner strukturierten Band 
Zwischensprache wiedergegeben und setzen den relozierenden Makro- 
Assembler RMAC von Digital Research voraus. 


Ein umfangreiches Makropaket zur Übersetzung dieser Programme ist 
ebenfalls enthalten. 


In Vorbereitung: Band 3: Vom Umgang mit CP/M 86 - Eine allge- 
meinverständliche Einführung. ISBN 3-88322-005-1 


Mit dem iAA-Programm auf die 
Zukunft programmiert. 


Ja, ich möchte regelmäßig über das Angebot des IWT-Verlages und IWT Software Service 
informiert werden! 


Mich interessiert: Vorname,,Name——_ 
deutsch [1] 
Computerei Mn P 
englisch Firma/ Institut 
IWT-Logo deutsch U 
Abteilung/Position 
Software allgemein [| 
Eiern: an, VE Sirabe ih 
englisch [| 
Robotik deutsch [| ee 
Kurs 
D.A.T.A.-Books englisch [ IRONEHRERERESUPEINNRE 
Telefon - Vorwahl, Rufnummer 
ımı Fiehe englisch 5 
Filme . Q Der SoftwareService If, 
für Information, 
Ich arbeite mit folgenden Computern: geschäftlich ______.___._____ Wissenschaft, 
Technologie 


privat _ 


Mit dem AA-Programm auf die 
Zukunft programmiert. 


Ja, ich möchte regelmäßig über das Angebot des IWT-Verlages informiert werden ! 


Mich interessiert: Vorname, Name 
deutsch [| 
Computerei ® u 
englisch Firma/ Institut i 
IWT-Logo deutsch U 
Abteilung / Position 
Software allgemein u 
Elektronik Genen E Straße/Nr. 
englisch | 
Robotik deutsch 0 en 
Kurs 
D.A.T.A.-Books englisch [1 BENENNEN: are 
Telefon - Vorwahl, Rufnummer 
in: ee se 
Filme . B Der Fachverlag 
fur Information, 
Ich arbeite mit folgenden Computern: geschäftlich _______ Wissenschaft, 
Technologie 
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Hiermit bestelle(n) ich /wir zur sofortigen Lieferung : 


| a DM/SFr. 


Grafik auf dem 
Commodore 64 


Wirtschaft auf dem 
Commocore 64 


Hiermit bestelle(n) ich /wir zur sofortigen Lieferung die 
foigenden Titel: 


Basic auf dem 


Expl. Best.-Nr. a DM/SFr. 
inkl. MwSt. 
22027 Grafik auf dem 
Commodore 64 


Wirtschaft auf dem 


Commodore 64 


IWT- Sprite- Komfortkit 
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Auftrags-Nr. Datum 
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Unterschrift 


Auftrags-Nr. Datum 


Unterschrift 
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